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Preface 


I feel obligated to let you know that I believe the arrival of OS/2 2.1 to be 
one of the most important events to have occurred in the history of the 
80386 (and up) chip world. The experience of using a very powerful full- 
fledged 32-bit multitasking operating system on my 386 and 486 systems 
has proven mind-boggling. 

In retrospect, it seemed as if my 386 computer had always been func- 
tioning in a daze when powered under DOS or DOS overlays such as Win- 
dows. The daze became apparent only after I had installed OS/2 on my 
386 computer. After I installed OS/2, my 386 became a more robust com- 
puter. More robust without a hardware change. Simply amazing! OS/2 
turned my 486 local bus computer into a monster-class workhorse. 

It didn’t take me long to become an OS/2 believer. My coding and 
writing productivity improved beyond words within hours after installing 
OS/2 2.0 on my 33 Mz. 386 class machine. Instead of spending time wait- 
ing for my computer, I now spend time thinking about what else can I get 
my computer to do. 

Know that OS/2 is not some software promise of being able to free up 
the raw power of the 386 and 486 microprocessors some time in the fu- 
ture. It’s here now. 


Introduction 





There are far more character mode based programs running under DOS 
than programs running in either the Windows or OS/2 Presentation Man- 
ager environments. As much as industry leaders sing the praises of pro- 
tected mode multitasking and graphical user interface based operating 
systems, DOS is still king in the real world. Simple as that. 

Pll always be running Borland’s Brief, my beloved text editor, in the 
80 x 25 character mode. I have a far more difficult time reading graphically 
drawn fonts than character mode generated fonts. There will always be a 
significant gaggle of users who feel that text editors, word processors, 
spread sheets, etc., are easier on their eyes and head in character mode 
than in graphics mode. 

Now that I’ve argued that there will always be a place for character 
mode programs on hard disks, then let’s move on to why OS/2 Full Screen 
is a more robust environment than standard DOS. The answer lies in the 
realm of memory management. 

DOS programmers know too well the machinations they have to go 
through when needing gobs of memory. There’s EMS. There’s XMS. There 
are virtual memory managers. What a mess. 

OS/2 programmers don’t fret one bit about memory. Why? OS/2 C 
programmers can allocate megabytes upon megabytes of memory with 
ease because OS/2 can run protected mode flat memory model programs. 
That means a program’s data and code can be as large as four gigabytes. 
Case closed. 


If you're writing a database management program and need one 
megabyte of memory for, say, a sort operation, simply allocate a megabyte 
via malloc(...). Flat memory model management is simple and fast. 

In short, migrating your existing DOS program so it can run in an 
OS/2 Full Screen character mode session means that: 


e Users can stay with an interface they already feel comfortable with. 

¢ Your program will become far more robust and agile in its memory 
management usage. 

e Your program will execute memory intensive operations far faster 
in OS/2 full screen than under DOS. 


Instant OS/2! should provide invaluable information for program- 
mers wanting to migrate their real mode DOS character-based programs 
to OS/2’s character mode 32-bit flat memory model. 


Why full screen OS/2 as a starting point for migration 


The software market changes so quickly it makes good sense to create 
market milestones as you convert existing applications to run under new 
generation 32-bit operating systems. These milestone upgrades should 
come often in order to keep your program current and steadily moving on 
the upgrade path. 

OS/2’s Presentation Manager API (Application Programmer’s Inter- 
face) is of the same ilk as the Windows API or X-Windows’s API, etc., and 
will take some time to master. Using the libraries presented in this book 
the differences between the DOS character mode API and OS/2 full screen 
API are quite small. You'll be able to get your 32-bit OS/2 full screen and 
DOS programs up and running in little time. 


The book’s organization 


This book is divided into three distinct parts. Part One is composed of 
seven chapters. These chapters contain demonstration programs and 
function prototypes for full screen character mode OS/2 and DOS C li- 
braries. These libraries contain same name and prototyped functions for 
the following categories: 


e Keyboard management functions 
e Cursor management functions 

e Screen management functions 

e Mouse management functions 

e Character mode window functions 
e Printer management functions 


Part Two presents all the source code for the OS/2 full screen C library, 
and Part Three presents all the source code for the DOS character mode C 
library. 


XIV Introduction 


Part One 


Demonstration 
programs and 
character mode API 


Part One presents the source code to 21 demonstration programs. This 
source code may be compiled with either Borland’s Ctt or IBM’s C/Set 2 
Compiler. If you select the Borland compiler, you will generate real mode 
DOS programs. If you select the IBM compiler, you will generate 32-bit flat 
memory model full screen OS/2 programs. 

Effort has made to minimize the conditional compilation statements 
present in the demonstration program source code. On rare occasions, 
calls will be made to dummy functions (functions containing no instruc- 
tions) in order to maintain source code compatibility between DOS and 
OS/2. 

I could have chosen to present conditional compilation statements in 
the source in lieu of the dummy functions but decided that the few bytes 
added to the executable code presented less of a penalty than the degra- 
dation of readability of the demonstration source code. 


| 


Developing a uniform full 
screen OS/2 & DOS 
character mode API 


I remember the conversation well. My good friend (and deeply gifted pro- 
grammer) Marc Neuberger called and barked the following message very 
strongly: “Install IBM’s OS/2 Version 2.0 on your computer. Now!” Al- 
though Marc and | occasionally have different views on a variety of issues, 
I followed Marc’s advice as if hypnotized. I’m glad I did. 

I became hooked after my first day of using OS/2. Here’s a capsule 
summary of what happened. I opened up a DOS window and began the 
somewhat long process of compressing and copying over 250 files from 
my hard disk to floppy. After I initiated this process I moved the mouse 
pointer over my 32-bit Presentation Manager telecommunications pro- 
gram and began dialing a BBS. The line was busy, so the telecommunica- 
tions program receded to the background and I found myself staring at the 
computer. 

I moved the mouse pointer over a Presentation Manager version of 
Reversi, clicked twice and began playing. After a few moves I fell into a feel- 
ing of awe. My disk compression and copy process was moving along at 
high speed. My telecommunications program was re-dialing the BBS. I 
was playing Reversi. I couldn't discern any degradation in application pro- 
cess performance. And this was on my 33 Mz. 386 no-name clone. 

My reverie was broken when the BBS answered and the telecommu- 
nications program took over and my game of Reversi stayed waiting for my 
move. 

Wow! I was hooked. OS/2 is a pure joy to use. 


Function prefix list 


I’ve decided to have standard function name prefixes for each function cat- 
egory in the OS/2 and DOS library presented in this book. Table 1-1 pre- 
sents the function prefix list. 


Table 1-1 Function 
prefix list. 


Prefix Category 


cu_ Cursor 
kb_ Keyboard 
ms_ Mouse 
mk_ Make 
scrn_ Screen 
wind _ Window 
print_ Printer 


The uniform OS/2 full screen 
and DOS character mode API 


The purpose of a uniform API for OS/2 and DOS programmers is to be able 
to write a mouse and keyboard driven user interface, printer driver, or key- 
board and mouse event handler, etc.—using one source file for both the 
OS/2 and DOS versions. This task has been accomplished by creating a 
uniform API for DOS and OS/2 programmers. 

Figure 1-1 presents the source code listing for TPROTO.H. This file 
contains the function prototypes for the API presented in this book. 


1-1 The source code listing to TPROTO.H. 
PELELEEPLLEPL TEE PA TPA PEP AL EEE Ea a 
// 

// tproto.h 

// 

// Function prototype file for 

// library functions 

AE RERECRSEC RSC RC CPSC Cee eee eeetees: 
// 


// include files here 
// 


d#Finclude “keyboard.h” 

#Hinclude “ascii.h” 

fHinclude “tstruct.h” 

PEPE ET TTT ALATA ELT TAD EP eee a oat 
// 


// OS2 defines 
// 
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#iftdef OS2 PROG 
#ifndef BCOS2 COMP 
#define itoa _itoa 
#tdefine 1toa _ltoa 
dFendi f 
ftendif 


PUPP SE CST OSE ELITES ESE SELES ETS EPP eee eas, 
// 
// High level keyboard routines 


EY 
int kb_edit(char «response, 
int row, 
int column, 
int dlen, 
int. opt. 


UCHAR attr); 
int kb_read( void); 
int kb_status(void); 
char kb_char(void); 
UCHAR kb_scan(void); 


PEEP EPT PEAT IL PEEL TAI Peas hdd 
// void kb_cap_on(void); 

// void kb_cap_off(void); 

f// void kb_ins_in(void); 

// void kb_ins_off(void); 

// void kb _num_on(void); 

// void kb_num_off(void); 

// int gtKBflag(void); 

// int gtKBflsh(int); 
PPIPELLIPEEI LAL ETP TEP e aoe af 


PIPES TIE EP ELIA EEL EL EAE PPP PLAT Pas ire 
ji 

// High level cursor routines 

yf 


void cu_get_loc(int *, int «#); 
int Cu_get_shape(void); 

void cu_movelint, mnt): 

void cu_relative_move(int, int); 
void cu_remove(void); 

void cu_display(void); 

void cu_Save_size(void); 

void cu_rest_size(void); 

void cu_set_size(int, int); 
void cu_save_loc(void); 

void cu_set_shape(int); 

void cu_rest_loc(void); 


void putCR(void); 
void putLF(void); 
void putCRLF(void); 
// rectangle routines 


void vdBox(RECT *, int, unsigned char); 


RECT «setRect( RECT «, int, int, int, int): 
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1-1. Continued. 


void addRect(RECT «, RECT x); 
void subRect(RECT «, RECT x); 
void dupRect(RECT *, RECT x); 
void dsyRect(RECT x); 
void offRect(RECT *, int, int ); 

void boxRect(RECT *, int, UCHAR attr); 
void clrRect(RECT #): 

VOld Til lRecttiREGT «, int): 

void saveRect(RECT x); 

UINT sizeRect(RECT x); 

void restRect(RECT x); 

VOId SCUpTRELT @, INE, Intl? 

VOId sScDNCRECGT #, ift, int): 


PACES ESESECESCEALS TES OC LER eee eee eeee: 
// 

// High level print routines 

// 


int print_open(int num) ; 

int print_close(int num); 

int print_newline(int num); 

ink printiertini num); 

int print _string(int num, char x); 
int. Brintcharlint, ¢char?: 

Int print_serntint): 

int printsernFFlint): 

Int DBrint_stacus( int}: 

void print_set_column(int, int); 


PEPPATALT ELIT SLEEP PELL a LEP P AT AP Pee eit 
fi 

// High level screen routines 

// 


void scrn_write(int row, int col, int len, char «str, UCHAR attr); 
void scrn_init(void); 

int Scrn_read_char(unsigned short, unsigned short); 

void scrn_save(void); 

void scrn_restore(void) ; 

void scrn_clear(void); 

void scrn_attr(int, int, int, unsigned char); 

void scrn_change_attr(unsigned char); 

void scrn—char(int row, int col, char ch, UCHAR attr); 

void scrn_repeat_char(int row, int col, int len, char ch, UCHAR attr); 
void scrn_—chr(int, int, int); 


WOId ascuplint, int, 1b, 1nt,iNt, int, nt): 
void putChr(char); 

void putCRLF(void); 

void putLF(void); 

void putCR(void); 

void putStr(char x); 

haps rdChar(void); 

Void vdhoriztini, 1ft, Int, int); 

int vdprompt(char *«,int, int, int, int); 
void vdStelint, int, int, cher #, char): 
void vdVert(int, int, int, int); 
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void wrChar(char, int); 

PELELEP ELIT PEELE PIPPI PLAT PEP a aL dd 
// 

// High level mouse routines 


if 


ms_init(void); 

ms_on(void); 

ms_off (void); 

mS Status(int ex, Tt «y): 

ms_map_display(int row, int col, int key_val); 


int 
void 
void 
int 
void 


FREER EPL EEE ELE ERE E LIEGE LTE TEEPE EL EET 


fi} 
// High level window routines 
// 
WIND sxwind_init(WIND «W_PTR, 
int wlr, 
int ule, 
int. | er; 
Tite  bPey 
UCHAR attr, 


int border, 

char «title ); 
wind _kb_edit(WIND xW, 

char *response, 

int row, 

imt column, 

int dlen, 

ln Opt. 

UCHAR attr); 
wind_display(WIND x); 
wind_remove(WIND x); 
wind_attr(WIND *«, int, int, 
wind_write(WIND «, int, int int , char «*, UCHAR); 
wind_char(WIND *, int row, int col, char ch, UCHAR attr); 
wind_repeat_char(WIND *, int row, int col, int len, 
attr); 
wind_destroy(WIND x); 
wind_read_char(WIND «x, 
wind_clear(void) ; 
wind _cu_move(WIND x, 


int 


void 
void 
void 
void 
void 
void 


int, unsigned char); 


void 
int 

void 
void 


ifits two) 


HE, int): 


PERZERSESSS ESS STRESSES TOSCO Ree eee 


char ch, 


// 

// Low level window routines 

// 

void setAttr(WIND *, unsigned char); 
void setBord(WIND «, int); 

void setTitle(WIND «,char x); 


WIND xsetWind(WIND x, 
void 
UINT 
void 
void 
void 
void 
int 


sizelmg(WIND x); 
wrBox(WIND x); 
wrimg(WIND x); 
wrWind(WIND x); 
wvdHoriz(WIND x, 
wvdprmpt(WIND x, 
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int.,int,int,int): 


StrtWind(WIND x); 


THt, 1G, INE; NE?) 


char #, int, Wt. int, At): 


UCHAR 
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1-1 Continued. 


void 
void 
void 
void 
void 
void 


int. int, int, int): 
mE 

THE hs 
Wie WI, Int, 


wvdVert (WIND x, 
wvdScdn(WIND x, 
wvdScup(WIND «, 
wvdStr(WIND «, 
rdimg(WIND x); 
rdWind(WIND x); 


char «, char); 


PEPE ELE ELES TEETER EE TEETH EELS 


// 


// Make Attributes and 
// Tokens 


// 


PP ETL EE ELLE ELLE EI EEE LEIP ETE aa 


UCHAR 
UCHAR 
UCHAR 
UCHAR 
UCHAR 
void 
int 


1-1 


mk_attr(unsigned char,unsigned char,unsigned char,unsigned char); 
mk_attr_intense(unsigned char); 
mk_attr_intense_blink( unsigned char); 
mk_attr_inverse(unsigned char); 
mk_attr_blink(unsigned char); 

mk_char_attr(int token, char «ch, UCHAR xattr); 
mk_token(unsigned char, unsigned char); 


Ends. 


Figures 1-2 through 1-4 present other include files required by the 
OS/2 Full Screen and DOS programmer API. Figure 1-2 presents the 
source code listing to KEYBOARD.H. Figure 1-3 presents the source code 
listing to ASCII.H, which contains ASCII and miscellaneous defines. And 
FIG. 1-4 presents the source code listing to TSTRUCT.H, which contains 


structures used by the OS/2 Full Screen and DOS programmer API. 


1-2 The source code listing to KEYBOARD.H. 
PEPPERS ELI AIRES ELT TPCT TEEPE EP EES 


// 


// keyboard.h 


// 

// 16-bit Key Codes 

// 

PEL ETEEL PITTA OP PIPPI a iid if 
define INSERT 0x5200 
4tdefine DELETE 0x5300 
#tdefine SPACE 0x3920 
define BSG OxO1lb 
define ESCAPE Ox01lb 
Htdefine PGDN 0x5100 
Htdefine PGUP 0x4900 
ftdefine PERIOD 0x342e 
#tdefine TAB Ox0f09 
define RT SQUARE Oxi bSi 
4tdefine LT_ SQUARE Oxla5b 
define RT BRACKET Oxlb/d 
#tdefine LT_BRACKET Oxla7b 
d#Fdefine CNTL_HOME Ox7/700 
Htdefine CNTL_END 0x7500 
define CNTL_ENTER OxlicOa 
dFdefine CNTL_BS Ox0e/7f 
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define 
Htdefine 
#tdefine 
#tdefine 
ftdefine 
Htdefine 
define 
Htdefine 
Htdefine 
define 
#tdefine 
#tdefine 
define 
define 
#tdefine 
ftdefine 
#define 
define 
#tdefine 
define 
Htdefine 
Htdefine 
Htdefine 
define 
#tdefine 
ftdefine 
#tdefine 
define 
#tdefine 
d#Fdefine 
Htdefine 
Htdefine 
Htdefine 
Htdefine 
define 
#tdefine 
#tdefine 
Htdefine 
Htdefine 
#Fdefine 
#tdefine 
#Fdefine 
define 
ftdefine 
#Fdefine 
define 
Htdefine 
#define 
Htdefine 
Htdefine 
stdefine 
#tdefine 
Htdefine 
define 
ftdefine 
#Fdefine 
Htdefine 
define 
Htdefine 
define 


HOME 

END 

§ BS 

BS 

BACKSPACE 

Ss GR 

CR 

ENTER 
UP_ARROW 
RIGHT _ARROW 
LEFT _ARROW 
DOWN_ARROW 
UP_ARROW_K 
RIGHT _ARROW_K 
LEFT _ARROW_K 
DOWN_ARROW_K 


F1Q 
SHIFT_TAB 
Shi?) _AOME 
SHIFT_END 
Soir) JL NSERT 
oni DERE TE 
SHFT_INSERT 
|e oe ae 
Shirl F2 

SHE lore 
SHFT_F4 
SHE] FS 
SHFT_F6 
SHP 1] FP # 
SHFT_F8 

Shr TFS 
SHFT_LF LO 
SH_R_ARROW 
SH_L_ARROW 
SH_U_ARROW 
SH_D_ARROW 
CNTL_F1 
CMake 
CATL_FS 
CNTL_F4 
LAL PS 
CNTL_F6 
CNTL_F/ 
CNTL_F8 
CNTL_F9 
CNTL_F1O 
CNTL_LEFTA 
CNTL_RIGHTA 
ALT_Fl 
ALT_F2 
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0x4700 
Ox4f00 
0x0008 
Ox0e08 
Ox0e08 
0x000d 
Oxicodd 
OxlcOd 
0x4800 
0x4d00 
0x4b00 
0x5000 
0x48e0 
Ox4de0 
Ox4be0 
0x50e0 
0x3b00 
0x3c00 
0x3d00 
0x3e00 
Ox3f00 
0x4000 
0x4100 
0x4200 
0x4300 
0x4400 
Ox0f00 
Ox 737 
0Ox4f31 
0x5230 
0x532e 
0x%52:30 
0x5400 
0x5500 
0x5600 
0x5700 
0x5800 
0x5900 
0x5a00 
0x5b00 
0x5c00 
0x5d00 
0x4d36 
0x4b34 
0x4838 
0x5032 
0x5e00 
Ox5f00 
0x6000 
0x6100 
0x6200 
0x6300 
0x6400 
0x6500 
0x6600 
0x6700 
0x7300 
0x7400 
0x6800 
0x6900 


9 


1-2 Continued. 


#define 
define 
define 
ftdefine 
define 
define 
#tdefine 
/tdefine 
dFdefine 
4tdefine 
d#Fdefine 
ftdefine 
Htdefine 
#define 
ftdefine 
ftdefine 
#tdefine 
define 
ftdefine 
#tdefine 
dtdefine 
ttdefine 
define 
Htdefine 
ftdefine 
ftdefine 
Htdefine 
Htdefine 
define 
Htdefine 
d#Fdefine 
define 
Htdefine 
Htdefine 
/tdefine 
Htdefine 
Htdefine 
define 
Htdefine 
d#Fdefine 
Htdefine 
Htdefine 
define 
ftdefine 
Htdefine 
Htdefine 
Htdefine 
#tdefine 
define 
define 
define 
define 
4Fdefine 
dFdefine 
define 
dFdefine 
define 
define 
}tdefine 
Htdefine 
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ALT_F3 
ALT_F4 
ALT_F5 
ALT_F6 
ALT_F/ 
ALT_F8 
ALT_F9 
ALT_F10 
ALT_A 
ALT_B 
ALT_C 
ALT_D 
ALT_E 
ALT_F 
ALT_G 
ALT_H 
ALT_I 
ALT_J 
ALT_K 
ALT_L 
ALT_M 
ALT_N 
ALT_O 
ALT_P 
ALT_Q 
ALT_R 
ALT_S 
ALT_T 
ALT_U 
ALT_V 
ALT_W 
ALT_X 
ALT_Y 
ALT_Z 
CNTL_A 
CNTL_B 
CNTL_C 
UATL_O 
CNTL_E 
GNT LF 
CNTL_G 
CNTL_H 
CNTL_I 
CNTL_d 
CNTL_K 
CP LL 
CNTL_M 
CNTL_N 
CNTL_O 
CNTL_P 
CTL 
CNTL_R 
CNTL_S 
CNTLUT 
CNTL_U 
CNTL_V 
CNTL_W 
CNTL_X 
CNTL_Y 
CNTL_Z 


0x6a00 
0x6b00 
0x6c00 
0x6d00 
0x6e00 
Ox6f00 
0x7000 
0x7100 
Oxledd 
0x3000 
Ox2e00 
0x2000 
0x1200 
0x2100 
0x2200 
0x2300 
0x1700 
0x2400 
0x2500 
0x2600 
0x3200 
0x3100 
0x1800 
0x1900 
0x1000 
0x1300 
Ox1f00 
0x1400 
0x1600 
Ox2f00 
0x1100 
Ox2d00 
0x1500 
Ox2c00 
OxleQl 
0x3002 
O0x2e03 
0x2004 
Oxl205 
0x2106 
Ox220/7 
0x2308 
0x1709 
0x240a 
0x250b 
0Ox260c 
0x320a 
0x310e 
Ox180f 
0x1910 
0x1011 
Ox1sl2 
Ox1f13 
0x1414 
Ox lols 
Ox2f16 
Oxi? 
0x2d18 
Ox1519 
Ox2cla 


#tdefine 
tdefine 
define 
#tdefine 
/tdefine 
#t}define 
define 
d#Fdefine 
define 
define 
#define 
4tdefine 
Htdefine 
Htdefine 
define 
d#tdefine 
Htdefine 
ftdefine 
#tdefine 
define 
define 
#define 
#define 
Htdefine 
Htdefine 
define 
define 
ftdefine 
Htdefine 
#tdefine 
define 
define 
Htdefine 
define 
define 
#tdefine 
Htdefine 
Htdefine 
/tdefine 
Htdefine 
Fdefine 
define 
4tdefine 
#tdefine 
dtdefine 
tdefine 
d#tdefine 
#tdefine 
Htdefine 
Fdefine 
define 
Htdefine 
ftdefine 
tdefine 
#tdefine 
#tdefine 
define 
#tdefine 
Htdefine 
define 
Htdefine 


fey er ee 
LO CO™M HOP WNMrF © 


> > 
[— fF — 
a 
re © 


> Yr YY > 
Pe Fr FF 
i 
Oy Ch) ES GO RS 


ALT_/ 
ALT_8 
ALT_9 
K_SPACE 


K_EXCLAM 


K_QUOTE 
K_POUND 


K_DOLLAR 
K_ PERCENT 


K_AND 
K_APOST 


K_LPAREN 
K_RPAREN 


K_STAR 
K_PLUS 
K_COMMA 
K_MINUS 


K_PERIOD 
K_FSLASH 


K_COLON 


K_SCOLON 


K_LESS 

K_EQUAL 
K_GREAT 
K QUEST 
K_AMPER 


NNBRBRBRR RR RR RRR RRR KRKR 
POO WO 2S Fr KRG Sle amo eS we eS 


0x0b30 
0x0231 
Ox0332 
0x0433 
0x0534 
0x0635 
0x0736 
0x0837 
0x0938 
0x0a39 
0x8100 
0x7800 
0x7900 
0x7a00 
0x7b00 
Ox7c00 
0x7d00 
0x7e00 
Ox7f00 
0x8000 
0x3920 
0x0221 
0x2822 
0x0423 
0x0524 
0x0625 
0x0826 
0x2827 
0x0A28 
0x0B29 
Ox092A 
0x0D2B 
Ox3320 
0x0C2D 
Ox342E 
Ux 352F 
Ox273A 
0x273B 
Ox333C 
0x0D3D 
Ox343E 
Ox353F 
0x0340 
Ox1E61 
0x3062 


OxZE63 - 
Ox2064 - 
Oxi 265 = 
Ox2166 - 
= Ozu 
Qx23568 - 
Oxis6o9 - 
Ox246A - 
Ox256B - 
Ox266C - 
Ox326D - 
DxILGE. = 
OxLS6F - 


Q0x226/ 


0x1970 
0x1071 
Ox si 


0x20 
0x20 
0x20 
0x20 
0x20 
0x20 


0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
0x20 
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1-2 Continued. 


define K_S Ox1F73 = Ox2eo 
define K_T Oxl4y4a - OxZ20 
define K_U 0x1675 0x20 
define K_V OxZzrio - Ox2 
Htdefine K_W Ox1177 - 0x20 
define K_X 0x2D78 0x20 
+#define K_¥ 0x1579 - 0x20 
ftdefine KZ Ox2C7A - 0x20 
#tdefine K_LBRACK Ox1A5B 
4Fdefine K_BSLASH OxZB5C 
define K_ RBRACK Ox1B5D 
/tdefine K_ KARAT Ox075E 
define K_UNDER Ox0C5C 
define Ka Ox1E61 
define K_b 0x3062 
#Fdefine K_c Ox2E63 
Htdefine K_d 0x2064 
define K_e Oxl265 
ftdefine KF 0x2166 
#tdefine K_g 0x226/7 
#define K_h 0x2368 
#tdefine Ki 0x1769 
define K_j Ox246A 
#tdefine K_k 0x256B 
define K_| Ox266C 
#tdefine K_m 0x326D 
Htdefine Kon Ox316E 
Htdefine K_o Ox186F 
define K_p 0x1970 
define K_q Oxl071 
4Fdefine Kr Ox13/2 
d#Fdefine K_s Ox1F73 
Htdefine oe 0x1474 
#tdefine K_u 0x1675 
#tdefine K_v Ox2F76 
#define K_w Oxilig7 
define K_x 0x2D78 
#define K_y 0x1579 
Htdefine Kz Ox2C7A 

1-2 Ends. 


1-3 The source code listing to ASCII.H. 
Pee eeree Erle eT PPP PE eee eee ear eee ee 
‘ie 


if asci1.nh 


// 

// ASCII def file 

Ee 

define aNUL 0 // null \O delimeter 
#tdefine  aSQH 1 // ‘A - start of heading 
4#Fdefine aSTX Z f/f *B - start of text 
define aETX 3 // C - end of text 

define aEQT 4 // D0 - end of transmission 
define  aENQ 5 f/f *E - inquiry 

ftdefine  aACK 6 // F - affirm acknowledgement 
define aBEL 7 // G@ - audible bell 
define  aBS 8 // ‘H - backspace 

4tdefine  aTAB 9 // *T - horizontal tab 
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Htdefine 
#tdefine 
define 
define 
Htdefine 
define 
Htdefine 
#Fdefine 
#tdefine 
define 
#tdefine 
#define 
Htdefine 
#define 
/tdefine 
#tdefine 
define 
tdefine 
define 
#tdefine 
#define 
ftdefine 
define 
stdefine 
Htdefine 
Htdefine 
Htdefine 
define 
define 
Htdefine 
#tdefine 
#tdefine 
dtdefine 
define 
Htdefine 
define 
#define 
Htdefine 
#tdefine 
Htdefine 
Htdefine 
HtHdefine 
d#Fdefine 
#tdefine 
#tdefine 
define 
define 
define 
#tHdefine 
#tdefine 
#tdefine 
#Fdefine 
ftdefine 
ftdefine 
4tdefine 
d#tdefine 
#define 
#tdefine 
#tdefine 
Htdefine 
Htdefine 


1-3. Ends. 


aLF 

aVT 

aFF 

aCR 

aSO 

aSlI 

aDCE 

aDCl 

aDC2 

aDC3 

aDC4 

aNAK 

aSYN 

aETB 

aCAN 

aEM 

a SUB 

aESC 

aFS 

aGS 

aRS 

aus 

aSPC 
aCODE 
aHCR 
aCENTER 
aDOUBLE 
aEXPAND 
aSUPERS 
aIlTALIC 
aBOLD 
alTRUE 
aFALSE 
ONE_COL 
TWO_COL 
ONE_TOP 
TWO_TOP 
ONE_BOT 
TWO_BOT 
TWO_LR 
TWO_R 
TWO_UR 
TWO_TB 
VONE_COL 
XONE_COL 
XTWO_COL 
X THREE COL 
XONE_TOP 
XTWO_TOP 
XTHREE_TOP 
XONE_BOT 
XTWO_BOT 
XTHREE_BOT 
KTHREE_ LR 
XTHREE_R 
XTHREE_P1 
KTHREE_ Pe 
XTHREE_TB 
XTHREE_UR 
XTHREE_2T 
KTHREE_2B 


10 /} 
Bl ff 
12 if 
13 // 
14 ig 
15 if 
16 fi 
L? // 
18 // 
19 // 
20 // 
zh // 
22 // 
23 // 
24 [i 
he i} 
26 iy 
2/ i} 
28 fi 
29 if 
30 ei 
cal ei 
32 // 
94 / / 
aEOT // 
“CG? ¥f 
ee SF 
a nr 2) 
‘Ss ff 
"1° ff 
"EB dg? 

] // 

0 ii 
] if 
Z ii 
3 ff 
4 if 
5 // 
6 ji 
? if 
8 ff 
9 fi 
10 i} 
ii // 
81 ei 
82 ei 
83 iif 
84 // 
85 // 
86 fy 
87 // 
88 if 
89 fi 
90 // 
91 // 
92 // 
93 // 
94 // 
95 // 
96 // 
97 Py 


A] = 
AK = 
- form feed 
Ay = 
AN = 


‘0 
i 


W{) = 
AR = 
AS = 


AT 
At) 
ny 


AW = 
AX = 
AY 3 
A7 = 


line feed 
vertical tab 


Carriage return 
SHitt out 

sHiTtt in 

data link escape 
device control 1 
device control 2 
device control 3 
device control 4 
neg acknowledge 
Synchronous idle 
end of transmission 
cancel 

end of medium 
substitute 

escape 

file sererator 
group seperator 
record seperator 
unlinked seperator 
Space 


character indicating printer command follows 
Hard carriage return 


code to center 


line 


double strike toggle 
emphasize toggle 
Superscript toggle 
italics toggle 

bold toggle 


true 
false 


1 column format 
2 column format 


word per chart format 


1 column format 
2 column format 
3 column format 
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1-4 The source code listing to TSTRUCT.H. 


LEPEEREPEPP PEP EPEAT APT PDP Pa a fi 
iZ 

if tstfuct.h 

ig 


ifndef IMAGE 
#tdefine IMAGE unsigned int 
dFendi f 


#ifndef ULONG 
fHdefine ULONG unsigned long 
fFendi f 


4#tifndef USHORT 
#tdefine USHORT unsigned short 
fendi f 


ifndef UINT 
#Hdefine UINT unsigned int 
Fendi f 


d#Fifndef UINTP 
4tKdefine UINTP UINT x 
Fendi f 


Hi fndef UCHAR 
#tdefine UCHAR unsigned char 
fendi f 


441i fndef UCHARP 
define UCHARP UCHAR x 
ftendif 


/ x 
* Structures 
x / 


POPPI EE PELL TTI PP RTE PPL AAP ETI PPP EEL Es 
// 

// Interface Structure List 

// 


PATIPEILT AP ERLL IPE P EET TAA EAT AT EP ELS Pad 


#fdefine LOTUS_ITEM_MAX 20 
#fdefine MENUBAR_ITEM_MAX 10 


MELEE E CREST EE PU SIS CEES EP ESE SCLC SER ere 

// 

// Structure for Lotus Style Window Interface 
// 


typedef struct { 
int number; // number of LOTUS objects 
char *nameLLOTUS_ITEM_MAX ]; // pointer to item name 
char xexplainLLOTUS_ITEM_MAX]; // pointer to item explanation 
int lot_mapLLOTUS_ITEM_MAX]([2]; // map for lotus item highlights 
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int lotus_item; // highlight and 

int old_loatus: // item selection data 

int lotus_open; // status of lotus window 

unsigned int imgbufll60]; // top two rows screen image 
| LOTUS_CLASS:; 


PRE EL ER ELE EE OLE EID T AGE ETT EA TAT RL EAT AE 


if 
// Structure for Lotus Style Window Interface 
// 
typedef struct { 
int number; // number of MENUBAR objects 
char *nameLMENUBAR_ITEM_MAX]; // pointer to item name 


int mb_mapLMENUBAR_ITEM_MAX]([2]; // map for menubar item highlights 
int key_listLMENUBAR_ITEM_MAX ]; 

int menubar_item; // highlight and 

int old _menubar; // item selection data 

int menubar_open; // status of lotus window 


Wt 81. 8eLrs // item attribute 
int Sinvattr: // inverse attribute 
Int SE Biter: // highlight key attribute 


int first_time; // first time 
unsigned int imgbufll60]; // top two rows screen image 
} MENUBAR_CLASS; 


typedef struct { 


int wl row: /*x upper left row % / 
WG: Wie: /x upper left column x/ 
int Ir_row; /x lower right row  / 
int. ir_eatl: /x lower right column x/ 
unsigned int img_size; /* window img size * / 
unsigned int «img_ptr; /* pointer scrn image +x/ 
unsigned int *xwind_ptr; /* pointer scrn image #/ 
int box_type; /x border selection x / 
1mt attr: /*x window attribute % / 
int visible; /*x window on * / 
int top_offset; /x col offset title — «/ 
int top_length; /x length title str * / 
int show_top; /x display title aij 
int bot_offset; /x col offset title % / 
int bot_length; /x length title str % / 
int show_bot; /x display title * / 
char 42-bit 6: fe DEF to tT title Sir a 
char xb_title; je ptr to Db title str «#/ 
} WIND; 


typedef struct { 


int ul_row; /*x upper left row ei 
iit ul_éal; /*x upper left column +/ 
int Ir_row; /x lower right row * / 
The. 1 Feo): /x lower right column x/ 
unsigned int *ximg_ptr; /*x pointer scrn image x/ 
int box_type; /*x border selection % / 
Tht. aL: /*x window attribute x / 
int visible; /*x window on % / 
int show_top; /x display title cad 
char et Title: fe ptr TO ET CITIG str a? 
} TWIND; 
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1-4 Continued. 
typedef struct | 


/*x media descriptor byte 

/x # of free clusters on disk 
/x total # of clusters on disk 
/*x # of sectors per cluster 

/x # of bytes per sector 


unsigned char media_descr; 
unsigned int clust_avail; 
unsigned int clust_total; 
unsigned int sec_p_clust; 
unsigned int bytes_p_sec; 
} DSKINFO; 
typedef struct | 
int mode; 
int row_width; 
int page; 
unsigned int «scrn; 
t VIDEO: 


typedef struct | 

int ul_row: 

mt wt_eol: 

int |Ir_row; 

int if cel: 

unsigned int ximage; 
r RECT: 


typedef struct | 
int row; 
int column; 

} CUR_LOCATION; 


typedef struct | 
IE Status: 
ink Cie cet 
int pix_rowl; 
int pix_row2; 
int ch_row; 


inc Cheol: 

LIGHT_PEN; 

/ x 

* defines for wrbox 
a / 
#define 5S 5S O 
fdefine SS DD 1 
Fdefine DUS SS 2 
#define D.DDD 3 
/* 

* defines for mkAttr 
xe / 
d##define BLACK 0 
4tdefine BLUE ] 
#tdefine GREEN 2 
define CYAN 
4tdefine RED 4 
#define MAGENTA 5 
4tKdefine BROWN 6 


define WHITE / 


/*x video mode 

/*x columns per row 

/* video page 

/* pointer to video RAM 


/* 
/* 


/ x 
/ x 
/x 
/ x 
/ x 
/ x 


; upper 


» lower 
~ lower 
» pointer to scrn image 


left row 
left column 
right row 
right column 


upper 


cursor row 
cursor column 


pen down or up 
pixel column 
pixel row 

pixel row 
character row 
character column 
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* / 
 / 
xe / 
x / 
* / 


* / 
 / 
se / 
te / 


* / 
x / 
xe / 
x / 
x / 


% / 
a / 


xe / 
x / 
x / 
se / 


 / 


4tdefine NORMAL 7 
define REVERSE 112 


d#tKdefine ON_INTENSITY 8 
d#define OFF_INTENSITY O 


#define ON BLINK 128 
d#define OFF _BLINK 0 
/x* 
* defines for scroll routines 
x / 


d#Kdefine UP SCROLL 6 
4#tKdefine DOWN SCROLL 7 


pe 
// defines for printer routines 
// 


#define PRINT_TIME_OUT 1 
#define IO ERROR 4 
define PRINT_SELECTED 8 
4#define OUT_OF_PAPER 16 
ftdefine ACKNOWLEDGE 32 
define PRINT_NOT BUSY 64 


// 
// defines for flush kb buffer and get char 
iif 


#define ON_ECHO_CTRL 1 /* on char echo and control-c enabled x/ 
#define OFF_ECHO_CTRL_C 7 /x off echo and control-c disabled xe / 


#Fdefine OFF_ECHO 8 /x off echo and control-c enabled x / 
oe 

Ef defines for kb shift status 

// 


#ifdef DOS_PROG 


4#FKdefine RIGHT_SHIFT 
+#define LEFT_SHIFT 
define CLRL_PRESS 
ftdefine ALT_PRESS 
d#tdefine SCROLL_LOCK 16 
4tdefine NUM_LOCK 32 
ftdefine CAPS _LOCK 64 
+#define INSERT_ON 128 


CoO PF 


Fendi f 

// 

// defines for MENU routines 
Fy 

4tdefine CENTER Oxf f 


d4Edefine NUMBERED 1 
#define RESETROW 2 


The uniform OS/2 full screen and DOS character mode API 


17 


1-4 Continued. 


// 
// defines for kb_edit 
of 


d#define UPPER _LOWER O 
Htdefine UPPER 
define LOWER 
#tdefine NAME 


WPM Fr 


veg 
// defines for mouse routines 
// 


4define LEFTBUTTON 1 
4tdefine RIGHTBUTTON 2 
ftdefine CNTRBUTTON 4 


ff 
// io defines 
fi 


#Fifndef BCOS2 COMP 
4Fifndef DOS PROG 
#tdefine S_IFMT OxFO00 // file type mask 
define S_IFDIR 0x4000 // directory 
#define S_IFIFO 0x1000 // FIFO special 
#define S_IFCHR 0x2000 // character special 
#fdefine S_IFBLK 0x3000 // block special 
#define S_IFREG 0x8000 // or just 0x0000, regular 
define S_IREAD 0x0100 // owner may read 
fHdefine S_IWRITE Ox0080 // owner may write 
define S_ITEXEC 0x0040 // owner may execute <directory search> 
define O_RDONLY i 


#tdefine O_WRONLY e 
define O_RDWR 4 
// Flag values for open only 
define O_CREAT Ox0100 // create and open file 
#tdefine O_TRUNC Ox0200 // open with truncation 
ftdefine O_EXCL 0x0400 // exclusive open 
Fendi f 
fFendi f 
1-4 Ends. 


Building your libraries and demonstration programs 


I used a command file (BUILDLIB.CMD, FIG. 1-5) to build the OS/2 Full 
Screen library and compile and link the demonstration programs. This is 
the command file for the IBM C compiler. Figure 1-5 presents the source 
code listing to BUILDLIB.CMD. 


1-5 The source code listing to BUILDLIB.CMD. 


del «.1ib 
del «.bak 
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del *.obj 

del *.exe 

icc /DOS2_PROG /C /Ss+ /Sp keyboard.c 

lib os2text +keyboard; 

ice {DOS2_ PROG JG /Sst (30 Wake.c 

lib os2text +make; 

ice /DOSZ_PRUG /C /Sst /Sp screen.c 

lib osztext +screen; 

ice f0CSZ_PRUG ¢C /Ss Sp cursor.c 

lib osdtext +cursor; 

tec #DOS2 PROG /C /Ss+ /Sp fect.c 

lib osztext +rect; 

icc /DOS2_PROG /C /Ss+ /Sp mouse.c 

11b osztext +mouse; 

jcc /DOS2_ PROG /C /Sst+ /Sp window.c 

lib os2text +window; 

ice (D052 PROG (> £55 fo Princer.c 

lib os2text +printer; 

ice /DOS? PROG /Ss+ /Sp prog2-1.c os2text.lib 
jcc /DOS2_ PROG /Ss+ /Sp prog2-2.c os2text.1lib 
icc /D0S2_PROG /Ss+ /Sp prog2-3.c os2text.l1b 
icc /DOS2_ PROG /Sst+ /Sp prog2-4.c asztext.lib 
icc /DOS2_PROG /Sst+ /Sp prog2-5.c os2text.lib 
icc /DOS2_PROG /Ss+ /Sp prog3-l.c os2text.!ib 
icc /DOS2_PROG /Ss+ /Sp prog4-1.c os2text.1ib 
icc /DOS2_PROG /Sst+ /Sp prog4-2.c os2text.1ib 
icc /DOS2_ PROG /Sst+ /Sp prog5-1.c os2text.1lib 
ice /D0S2_ PROG /Sst /Sp progs-2.c os2text.|ib 
ie¢c /DOSZ_PROG 7Sst+ /Sp progS-3.¢ osZText.11b 
icc /DOS2_PROG /Ss+ /Sp prog6-1.c os2text.lib 
icc (DOS2 PROG /Ss+ /Sp progé-2.¢ os2text.1ib 
icc /DOS2_PROG /Ss+ /Sp prog6-3.c os2text.l]ib 
jcc /DOS2_ PROG /Ss+ /Sp prog6-4.c os2text.1ib 
icc /DOS2_PROG /Ss+ /Sp progo-6.c¢ osZztext.lib 
icc /DOS2_PROG /Ss+ /Sp prog6-7.¢c osS2text.l1b 
icc /DOS2_PROG /Ss+ /Sp prog6-8.c dfinstl.c os2text.lib 
icc /DOS2_PROG /Ss+ /Sp prog/7-1l.c os2text.lib 
icc /DOS2Z_ PROG /Ss* (Sp prog7-2.¢ osZtext.11b 
del *.bak 

del *.obj 

1-5 Ends. 


I used a batch file (BUILDLIB.BAT, FIG. 1-6) to build the DOS library 
and compile and link the DOS demonstration programs. Figure 1-6 
presents the source code listing to BUILDLIB.BAT. 


1-6 The source code listing to BUILDLIB.BAT. 
del *x.1ib 


bcc -c -ml -DDOS PROG screen.c 
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1-6 Continued. 


bcc -c -ml -DDOS_ PROG make.c 

bcc -c -ml -DDOS_ PROG window.c 
bee -c =-m| <DDOS_PROG keyboard.c 
bec -c -ml -DDOS_PROG cursor.c 
bee -c¢ -m| -DDOS_PROG rect.c 

bcc -c -ml -DDOS PROG mouse.c 
bee -c -ml -DOOS_PROG printer.c 


tasm /mx /Dmd1=3 kb _stat.asm 


tlib dostext +screen.obj 


tlib dostext +make. 


Obj 


tlib dostext +window.obj 
tlib dostext +keyboard.obj 
Llib destext +eursor, obj 


Llib DOSteXt +rect., 


obj 


tlib dostext +mouse.obj 
tlib dostext +printer.obj 
tlib dostext +kb_stat.obj 


bec -ml -DDOS_ PROG 
bcc -ml -DDOS_PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS_PROG 
bcc -ml -DDOS_ PROG 
bec -ml -DDOS_PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS_PROG 
bcc -ml -DDOS PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS_PROG 
bcc -ml -DDOS_PROG 
bcc -ml -DDOS_ PROG 
bcc -ml -DDOS PROG 
bec -ml -DDOS_PROG 
bcc -ml -DDOS_ PROG 
bec -ml -DDOS_PROG 
del «.obj 

del «.bak 

de] «x.1st 

1-6 Ends. 


prog2-l. 
prog?-2. 
prog?Z-3. 
prog2-4. 
progZ-5. 
progs~-1. 
prog4-l. 
prog4-2. 
prags-1. 
progs=-2. 
ePods-3., 
progo-l. 
progo-2. 
proge-3. 
progo-4., 
progo-5. 
pragG-6. 
progo-/. 
prog6-8. 
prog/-1. 
prog/-z2. 


OOM OM OGA AOL A AOA ea A a a 


dostext.1lib 


dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
dostext. 
GOStext. 
dostext. 
dostext. 
dostext. 


dostext.1i 


dostext. | 


I used a command file (BUILDLIB.CMD, FIG. 1-7) to build the OS/2 
Full Screen library and compile and link the demonstration programs. This 
is the command file for the Borland Ct* for OS/2 compiler. Figure 1-7 
presents the source code listing to BUILDLIB.CMD. 


1-7 The source code listing to BUILDLIB.CMD. 


del «.obj 
del «.1ib 
del «.bak 


DCC 
DCC 


-Id:\bcos2\include -DOS2_PROG -DBCOS2_ COMP 
-Id:\beos2\include -DOS2_PROG -DBCOS2_COMP 


-c keyboard.c 
-c make.c 
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bec -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP -c screen.c 

bec -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP -c cursor.c 

bcc -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP -c rect.c 

bec -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP -c mouse.c 

bec -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP -c window.c 

bec -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP -c printer.c 

tlib os2text +screen 

tlib os2text +make 

tlib os2text +keyboard 

tlib os2text +cursor 

tlib os2text +rect 

tlib os2text +mouse 

tlib os2text +window 

tlib os2text +printer 

bee -Ld:\bcos2\lib -Id:\bcos2\include -DOSZ2 PROG -DBCOS2 COMP prog2-1. 
OSZ2TEXt. 11D 

bee -Lds\beos2\lib -[d:\bcos2Z\include -DOS2 PROG -DBCOS2 COMP prog2-2. 
os2text.lib 

bee -Ld:\beosz\ lib «<L[d:s\bcosz\inelude -DOSZ_ PROG -DBCOS2_COMP prog2-3. 
os2text.lib 

bec -Ld:\beos2\lib -[d:\bcos2\incelude -DOQSZ2_PROG -DBCOS2 COMP srogZ-4, 
os2text.lib 

bec -Ld:\bcos2\lib -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP prog2-5. 
os2text.lib 

pee -Ld:\beos2z2\tib -Id:\bcosc\include -DOS2Z_PROG -DBCOS2_COMP prog3-1. 
os2text.lib 

bec -Ld:\beos2\iib -Id:\beos2\inelude ~DOS2_ PROG -DBCOS2_COMP prog4-1. 
oOsS2téxt. lib 

bee -Ld:\beos2\lib -Id:\bcos2\include -DOS2 PROG -DBCOS2 COMP prog4-2. 
os2text.lib 

bee -Lds\bcosz\ lib -Id:\bcosZ\inelude -D0SZ_ PROG -DBCOSZ COMP progS-1. 
os2text.lib 

bec -Ld:\bcos2\lib -Id:\bcos2\include -DOS2_PROG -DBCOS2_COMP prog5-2. 
os2text.lib 

bec -Lds\beos2\lib -Id:\beos2Z\inel ude -DOS2_ PROG -BBCOS2 COMP proeg5-s. 
os2text.1ib 

bee «La: \pcos2\lib -Id:\beos2\inelude -DOS2_PROG -DBCOS2 COMP progé6-1. 
OSZTExrt« lib 

bec -Ld:\becosZ\lib -Id:\bcosZ\include -DOS2_PROG -DBCOS2 COMP prog6-2. 
os2text.lib 

bee -Ld:\bcos2\lib -Ids\beos2\inelude -~DOSZ_ PROG -DBCOS2 COMP prog6-3. 
os2text.lib 

bec =La:\beos2\ lib -ld:\bcoszZ\inelude -DOSZ2_PROG -DBCOS2 COMP prog6-4. 
os2text.]ib 

bec -Ld:\bcos2\lib -Id:\bcos2\include -DOS2_PROG -DBCOS2_ COMP prog6-5. 
os2text.lib 

bce -Ld:\bcos2\lib -Ids\bceos2\include -DOS2_PROG -DBCOS2_ COMP prog6é-6. 
os2text.lib 

bee -Lar\beos2\lib -Ids:\beos2\inelude -DOS2 PROG -DBCOS2? COMP prog6é-/. 
os2text. lib 

bec -Ld:\bcos2\lib -Id:\bcos2\include -DOS2_PROG -DBCOS2_ COMP prog6-8. 
os2text.lib 

poe -Ld:\beosz\lib -Idi\bcos2\inelude -DOSZ_ PROG -DBCOS2_COMP prog/-1. 
os2text.1lib 

bee ~Ld:\pcosz\ lib -Id:\beos2\ineludée -DOS2 PROG -DBCOS2 COMP prog?=2, 
os2text.lib 

del *.obj 

del «.bak 

1-7 Ends. 
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Summary 


This chapter presented the foundation function prototype (TPROTO.H, FIG. 
1-1) file. This file summarizes the uniform OS/2 and Full Screen and DOS 
API presented in this book. This uniform API facilitates the development of 
OS/2 Full Screen and DOS applications. 

Include files for structures which are used in the API and key de- 
fines are also presented (KEYBOARD.H, FIG. 1-2, ASCII.H, FIG. 1-3 and 
TSTRUCT.H. FIG. 1-4). 

Finally, a command file (BUILDLIB.CMD, FIG. 6-5) demonstrates one 
way to build the OS/2 Full Screen version of the book’s API using the IBM 
C Compiler. The batch file (BUILDLIB.BAT, FIG. 6-6) presents one way to 
build the DOS API. The command file for building the OS/2 library with 
Borland’s Ctt for OS/2 compiler is presented in FIG. 6-7. 

Chapter 2 introduces the keyboard management demonstration 
function prototypes and demonstration programs. 
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2 


Keyboard management 
demonstration programs 





This chapter presents five programs that demonstrate the use of five 
keyboard management functions. These functions form a solid foundation 
for all of a program’s keyboard input needs. 

Table 2-1 presents the function prototypes for the keyboard related 
functions. 


Table 2-1 Keyboard 
function prototypes. 


int kb_edit(char «response, 
int row, 
int column, 
int dlen, 
int opt, 
UCHARattr); 

int kb_read(void); 

int kb_status(void); 


char kb_char(void); 
UCHAR kb_scan(void); 


Keyboard function descriptions 
Function kb__read() 


Usage 


Remarks 


key= kb__read(); 
where 
key is a 16-bit int 


Function kb__read() stops program execution and waits 
for a key press. When a key is pressed program execution 
continues. The 16-bit key code is returned to key. The 
16-bit defines for the returned key are in KEYBOARD.H 
(FIG. 1-2). 


Function kb__scan() 


Usage 


Remarks 


scan= kb__scan(); 

where 

Scan is an 8-bit unsigned char 

Function kb__scan() stops program execution and waits for 


a key press. When a key is pressed program execution 
continues. The 8-bit scan code is returned to scan. 


Function kb__char‘() 


Usage 


Remarks 


ch= Kb -enart); 

where 

ch is an 8-bit char 

Function kb__char() stops program execution and waits for 


a key press. When a key is pressed program execution 
continues. The 8-bit char code is returned to ch. 


Function kb__status() 


Usage 


Remarks 


key= kb __status(); 
where 
key is a 16-bit int 


Function kb__status() does not stop program execution and 
reports when a key is pressed. If no key is pressed a value of 
O is returned. If a key is pressed, the 16-bit key code is 
returned to key. The 16-bit defines for the returned key are 
presented in KEYBOARD.H (FIG. 1-2). 
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Function kb__edit(...) 
Usage kKey= kb__edit(*response, row, column, dlen, opt, attr); 
where 
key is a 16-bit int 
response is a pointer to a char buffer 
row is a 16-bit int 
column is a 16-bit int 
dlenis a 16-bit int 
opt is a 16-bit int 
attr is an unsigned char 


Remarks Function kb__edit(...) allows you to enter a string of text 
from the keyboard. The function terminates using a Tab, 
Enter, or Esc character. The terminating key press is returned 
in the 16-bit int, key. If you press the insert key, kb__edit 
goes into the insert mode, otherwise the default mode is 
overlay. The text is returned to the buffer pointed to by 
response. You can set the row and column where the input 
will begin. The length of the buffer is also set. The attribute of 
the entry text is also controlled. The dopt variable controls 
the case of the text. UPPER_CASE means that all text will 
appear as uppercase. LOWER_CASE means that all text will 
appear as lowercase. UPPER_LOWER means that the person 
entering data can select the case. 


Stopping program execution 
& reading a 16-bit key code 


Figure 2-1 presents the source code listing for PROG2-1.C. This program 
demonstrates the use of function kb__read(). 


2-1 The source code listing to PROG2-1.C. 
PEPPER EGE PAPA AP PAT LAPT AEE TDD eee 
iy 


/é prog?-1.¢ 

// 

// Demonstrates: 

iif 

// kb_read() 

fe aig eaiatee 

fi Stops program execution and 
ji reads 16-bit key code 

ff 

{7 


SLINEDECEL ELLE TICLES TEP 
PPE Chee rerer sehr e eases tar ee sees, 
// 


// Compiler includes here 
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2-1 Continued. 
// 


include <stdio.h> 


PEP TOCR ELEC COUR C EPEC Ee eee eee 
iif 

// Library includes here 

// 


fFinclude “tproto.h” 
FPOPEL EPI PTI ETT EL ESTEE ELA TEP I Tae 
// 


// main function 
// 


void main() 
{ 
// 16-bit scan and char code 


int code; 
// 
// print program title 
// 


printf (“\n\nDemonstration of function kb_read()\n”); 
orinire "Press F110 to exit\n\n”): 


// 

// print 16-bit key codes until 
// the Fl10 key is pressed 

// 


” i Stop program and wait for key press 
// 16-bit key code => code 
code= kb_read(); 
// print 16-bit key code to the screen 
printf (“Key Code= 0x%04X\n”, code); 
// repeat until F10 is pressed 


} while(code != F110); 


pi 
PERC CPE PSCC SSCP Sr reee eee ee eee rere rs: 


2-1 Ends. 


Stopping program execution & 
reading an 8-bit character code 


Figure 2-2 presents the source code listing for PROG2-2.C. This program 
demonstrates the use of function kb__char(). 
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2-2 [he source code listing to PROG2-2.C. 
TEPEESESECL USPTO CPSP ERCP eee eeee es 
// 


(fF proge-7.c 

// 

// Demonstrates: 

// 

if kb _char() 

{i <#ne ee mm 

// Stops program execution and 
a reads 8-bit character code 


1 LULLED LELLALL LI LEEELLLEELLLLTEDLLTD 
PEEL PAPP PEPE EPAP ALATA E ELLE Pa bad 
7 Compiler includes here 

// 

#Finclude <stdio.h> 

tea EEE Te acta 


// Library includes here 
// 


#include “tproto.h” 
PERERELESEESES ELECT IPAS ESOS CSTE CEE SEE 
/ 


// main function 
iF 


void main() 
// 8-bit char code 
UCHAR code; 
if 
// print program title 
re 
printf(“\n\nDemonstration of function kb_char()\n”); 
printf¢(“Press X or X to exitin\n”); 
// 
/f pring @-DIL ehar codes and char unt | 
// the x or X key is pressed 
// 
do { 
// stop program and wait for key press 
// 88-bit char code => code 
code= kb_char(); 


// print 8-bit char code to the screen 


printf (“Char Code= 0x%Z02X Z%c\n”, code, code); 
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2-2 Continued. 
// repeat until x or X is pressed 


} while((code != ‘x’) && (code != ‘X’)); 


// 
PPP CPPES CEST IP e peer er eeeeeeiee reas 


2-2 Ends. 


Stopping program execution 
& reading an 8-bit scan code 


Figure 2-3 presents the source code listing for PROG2-3.C. This program 
demonstrates the use of function kbD__scan(). 


2-3. The source code listing to PROG2-3.C. 
POPPA Peer ee cere eee eee ete eke: 


// 

fF OF O02" 3.8 

if 

// Demonstrates: 

if 

// kb_scan() 

ff -se-eece4 

Vy Stops program execution and 
// reads 8-bit scan code 


// 
PPTL EEL ERE ATES IG TATE a Aa aE 
PEPPER PRET PT ELL AL TIPLE E EE TTT EPG aT 
fi} 


// Compiler includes here 
a 


fHinclude <stdio.h> 


eee eee eee eee epee eer eerereges| 
// 

// program defines 

df 


4tdefine ALT_X_SCAN_CODE Ox2d 


FEISS AS PPA aaa 
ei 

// Library includes here 

fi 


#Hinclude “tproto.h” 
FESTA LI TEEE LE EEL E EAL LITT EET 
i} 


// main function 
// 


void main() 
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// 8-bit char code 

UCHAR code; 
// 
// print program title 
yi 


printf(“\n\nDemonstration of function kb_scan()\n”); 
printf(“Press ALT_X to exit\n\n”); 


re 
// print 8-bit scan codes until 
// the Alt-X key combination is pressed 
// 
do { 
// stop program and wait for key press 
// 88-bit scan code => code 
code= kb_scan(); 
// print 8-bit scan code to the screen 
printf(“Scan Code= 0x%Z02X\n”, code); 
// repeat until x or X is pressed 


} while(code != ALT_X_SCAN_CODE) ; 


// 
SELES ED ESLESESI SRE SSSURE SESE SS ELIE PEEL: 


2-3 Ends. 


Not stopping program & retrieving a 16-bit key code 


Figure 2-4 presents the source code listing for PROG2-4.C. This program 
demonstrates the use of function kb__status(). 


2-4 The source code listing to PROG2-4.C. 
PEPLETPOC ESSERE FPP SUP eee ee eee ares: 
re 


/f prog2-4.¢ 

// 

// Demonstrates: 

fe 

Mei kb_status() 

[fy 20 ewes eee 

fy Does not stops program execution 


// reports 16-bit key code after a 
Py key press 


// 
TILELTSTITTTTTITTLTST ITT TTT TTT TTT TTT 
PETPEEPPET ATT EET EA TEEPE PATE TALE LLL TS gE 
f 


// Compiler includes here 
// 
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2-4 Continued. 
#include <stdio.h> 


PICCCEC PP SCPE SPP Cee ee ee eee ree es: 
ie 

// Library includes here 

ie 


finclude “tproto.h” 


CEPPERLI TTI Ae ie 
jf 

// main function 

// 


void main() 
Hy lo-bit scan and char code 
int code; 

ue 


// print program title 
// 


printt(*\n\nDemonstration of function kb_Status()\n"); 
printf(“Press any key to start program\n”); 
printf(“Press F10 to stop program execution\n\n”); 
re 
// wait for key press 
if 
kb_read(); 
// 
// print 16-bit key codes until 
// the Fl0 key is pressed 
// 
do { 
// do not stop program and check for key press 
// 16-bit key code => code 
code= kb_status(); 


// if a key has been pressed then print it 
// to the screen 


if(code !=0) { 
/f print 16-bit key code to the screen 
printf(“\n\nkey Code= 0x%04X\n”, code); 
// and wait for another key press to continue 
printf(“Press any key to restart program\n”); 


kb _read(); 
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// else print message to screen 
else { 


printf(“No key press...”); 
} 


// repeat until F10 is pressed 
} while(code != F10); 


// 
BELT IE RLEELE ELE EET EEE TEEPE ETE TT aE 


2-4 Ends. 


Retrieving a character string from the keyboard 


Figure 2-5 presents the source code listing for PROG2-5.C. This program 
demonstrates the use of function kbD__edit(...). 


2-5 The source code listing to PROG2-5.C. 
PEPPEPEL EP PP EEL APPEL EPP Pee 
// 


ff ppage-5.t 

// 

// Demonstrates 

// 

ff kb_edit() 

Sedalia alates 

// Stops program execution and 
// and reads a character string 
// from the keyboard ar a specified 
// row and column location. 

// 


RES CPEPESES OSE PCPS E SESE SIESTA EE EES EY: 
PELL EPAP ERTS TEL PEEL EL AST ETE EET EI PETAL 
iy 


// Compiler includes here 
yy 


fHinclude <stdio.h> 
#Finclude <memory.h> 


Peter ece freee ererecreceereeceeserers: 
// 

// Library includes here 

// 


#include “tprotea.h” 
PEPE EEL EPSP EE PEPE TET I LEEPER PEALE EP PP aa i 
// 


// main function 
// 
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2-5 
vOj 
cha 
int 


Continued. 

d main() 

r buffer[60]; // 60 byte string buffer 
code; // 16-bit return code 

// 

// initialize screen 

fi 


// Required by DOS programs using the library 
// Not required by OS/2 programs 

// 

// An empty function has been provided to 


// reduce the number of conditional compilation 


// considerations 

Ei 

// Use conditional compilation if you wish 
fd 


#ifdef DOS_PROG 


ffen 
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Scrn_init(); 

dif 

// 

// clear the screen 
iy 

scrn_clear(); 

fy 

// initialize buffer 
// 


memset(buffer, 0, 60); 


fi 

// print program title 

fj 

scrn_write(0, 0, 0, “kb_edit(...) demonstration”, 7) 

// 

// data entry field name 

ei 

scrn_write(z, 0, 0, “Enter Full Names °, 7): 

// 

// read keyboard string 

fi 

code= kb_edit(buffer, // buffer receives data 
Z, // row start 
1G, // column start 
60, // length of entry field 
UPPER_LOWER, // allow upper and lower case 
ap Be // attribute 
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// process return code 


// 


// if the return code is Escape 


if(code == ESC) { 
scrn_write(4, 0, 0, “Escape Key... No action”, 7); 


// otherwise Enter key press returned 


else { 
scrn_write(4, 0, 0, “Enter Key... action”, 7); 
scrn_write(5, 0, 0, “Data entered: “, 7); 


scrn_write(5, 14, 0, buffer, 7); 


Ii 


// wait for key press 


if 


kb _read(); 


iy 
// 
fi 


clear the screen 


scrn_clear(): 


// 
PRLEEE LLL EL EEL AL IL EEE LE TE OSE CL PAE OF LE 


2-5 Ends. 


Summary 


This chapter presented programs which demonstrate the use of founda- 
tion keyboard handling routines. You learned how to 


Stop program execution and retrieve a 16-bit key press. 

Not stop program execution and see if a key had been pressed. 
Stop program execution and retrieve the scan code of the key 
pressed. 

Stop program execution and retrieve the char code of the key 
pressed. 

Enter a string of characters from a specified row and column 
screen location. 


Chapter 3 introduces management function for controlling the text cursor. 
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Text cursor 
management 
demonstration programs 





This chapter presents one demonstration program that illustrates 
the use of most of the cursor management functions presented in this 
chapter. 

Table 3-1 presents the function prototypes for cursor related func- 
tions. 


Table 3-1 Cursor 
function prototypes. 


void cu_get_loc(int x, int x); 
int cu_get_shape(void); 
void cu_move(int, int); 
void cu_relative_move(int, int); 
void cu_remove(void); 

void cu_display(void); 

void cu_save_size(void); 
void cu_rest_size(void); 
void cu_set_size(int, int); 
void cu_save_loc(void); 
void cu_set_shape(int); 
void cu_rest_loc(void); 


Cursor function descriptions 


Function cu__get_loc(...) 

Usage Cu__get__loc(*row, *col); 
where 
row is a pointer to an integer 
col is a pointer to an integer 


Remarks Function cu__get__loc(...) returns the current row and 
column cursor locations via the integer pointers present in the 
parameter list. 


Function cu__get__shape() 
Usage Shape= cu__get__shape(); 
where 
sha pe is an integer that holds the cursor begin and end data 


Remarks Function cu__get__shape() is a convenient way to save the 
cursor’s shape. 


Function cu__set__shape(...) 
Usage cu__set__shape(shape) ; 
where 
Shape is an int 
Remarks’ Function cu__set__shape(...) should be invoked after the 


shape has been saved in shape using function cu__get__ 
shape(...). 


Function cu__move(...) 
Usage Cu__move(row, col); 
where 


row is an int 
col is an int 


Remarks Function cu__move moves the text cursor to a specified row 
and column location. 


Function cu__relative_move(...) 

Usage cu__relative__move(row__offset, col__offset); 
where 
row__offset is an integer 
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Remarks 


col__offset is an integer 


Function cu__relative_move(...) is a convenient way to 
move the cursor a specified number of rows and columns 
relative to the cursor’s current position. 


Function: cu__remove() 


Usage 


Remarks 


Cu. _remove(); 


Function cu__remove() removes the blinking text cursor from 
the screen display. This function will prove invaluable in creat- 
ing classy looking interface screens and certain dialog boxes. 


Function: cu__display() 


Usage 


Remarks 


cu_cisplay(): 


Function cu__display() displays the blinking text cursor 
after it has been removed. 


Function cu__save_size() 


Usage 


Remarks 


CU Save $§i17@( }: 


Function cu__save__size() is a convenient way to save the 
cursor’s shape. It differs from function cu__get__shape() in 
that it saves the cursor’s size (or shape) to a static variable. 


Function cu__rest_size() 


Usage 


Remarks 


CU Pest Si7Aat): 


Function cu__rest__size() is a convenient way to save the 
cursor’s Shape. It should be invoked after the cursor shape 
has been saved using cu__save__size(). 


Function cu__set_size(...) 


Usage 


Remarks 


CUL..S@L__Sizelsiart, stop): 
where 

Start is an int 

Stop is an int 


This function is useful for changing the cursor’s size. 


Function cu__save_loc() 


Usage 


cu. save __loc(): 
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Remarks “This function is a very convenient way to save the cursor’s 
current location to a static variable. 


Function cu__rest_loc() 


Remarks This function is a very convenient way to restore the cur- 
sors previously saved location using the cu__save__1loc() 
function. 


Manipulating the cursor location, size, and visibility 


Figure 3-1 presents the source code listing to PROGS-1.C. This program 
demonstrates the use of many of the cursor management functions 
previously presented in the chapter. 


3-1 The source code listing to PROGS-1.C. 
PESTLE EERE L AREAL ETAT TAT Pat 


ie | 

jy orog3a-1.¢ 

fy 

// Demonstrates: 

ie 

if Ccu_save_loc() 

fj}. ‘sedeeacee sete 

// Save the cursor’s current row 
// and column location 

Py 

// cu_rest_loc() 

jf 2 fw ere reece eee 

// Restores the cursor to the 

ie location previously saved by 
if invoking cu_save_loc() 

ii 

// Cu_Ssave_size() 

ff steerer es ee ees 

fi Save the cursor’s current size 
// 

if cu_rest_size() 

fp eR Re eS ci 

// restores the cursor’s current 
ff Size 

// 

// Cu_remove() 

[Yo ae mea ae 

// Removes the cursor from the 
ia screen 

// 

jd cu_display() 

i ees sae 

ii Displays the cursor on the 

iy screen 

// 

// Cu_move() 

ff sees 

// Moves the cursor ro a specified 
‘fi row and column location. 
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// 
FESPA REL PIL TITA PPPS ELTA LAAT EERE PEE el 
SESE CSCC SSS SCPE OSCE TCC RSPR CC ECE EEE: 
// 


// Compiler includes here 
// 


fHinclude <stdio.h> 


EP EECLES ELEC COLES EERE SECS SECS Cae es | 
fi 

// Library includes here 

// 


fHinclude “tproto.h” 
SoCs PSPs e er eee eee vere tee eae ey, 
ff 


// main function 
// 


void main() 


oy 

// initialize the screen 
// 

Sern ii tis: 


iy 
// save the current cursor location 
ies 


cu_Save_loc(): 


if 
// save the current cursor size 
id 


Cu_save_size(); 

// 

// save the screen 
// 

scrn_save(); 

// 

// clear the screen 
ff 


scrn_clear(): 


// 

// move the cursor to row O 

// column 0 
ei 


cu_move(0, 0); 


// 
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3-1 Continued. 


// print program title 
ff 


printf( “Demonstration of Cursor management functions.\n”); 
printf(“Press any key to remove the cursor.\n”); 


// 
// stop program and wait for key press 
// 


kb _read(); 


// 
// remove the cursor from the screen 
iy 


Cu_remove(); 


// 
// print message 
// 


printf(“Press any key to display the cursor.\n”); 


if 
// stop program and wait for key press 
// 


kb _read(); 


// 
// display the cursor 
ff 


cu_display(); 
// 


// print message 
// 


printf(“Press any key to change the cursor shape.\n”); 
ii 

// stop program and wait for key press 

// 

kb_read(); 

cu_set_size(0,14); 

// 

// print message 


// 


printf(“Press any key to restore calling OS program\n”) ; 
printf(“while restoring original cursor location and size.\n”); 


if} 
// stop program and wait for key press 
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fi 
kb _read(); 


is 
// restore the screen 
// 


scern_restore(): 


// 
// restore cursor location 
// 


Cu rest _loet): 


// 
// restore prevuisly saved cursor size 
ii 


cu_rest_size(): 
} 


i} 
PELEPLEEE EL EEETA TPE PEEP EE ET 


3-1 Ends. 


Summary 


This chapter presents a program that demonstrates the use of foundation 
cursor management functions. You learned how to: 


e Move the text cursor. 

e Move the cursor relevant to its current location. 
e Remove the text cursor from the display. 

e Display a previously removed text cursor. 

e Save the cursor position. 

e Restore the cursor position. 

e Get the cursor location. 

e Get the cursor shape. 

e Set the cursor size. 


Chapter 4 introduces foundation screen management functions. 
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4 


Screen management 
demonstration programs 





This chapter contains two demonstration programs that illustrate how 
most of the screen management functions are utilized. 

For purposes of both the OS/2 Full Screen Library and the DOS 
library, an 8-bit unsigned char screen attribute is composed of four qual- 
ities. These qualities are: 


e Foreground color 
e Background color 
e Foreground intensity 
e Foreground blink 


The screen token is a 16-bit integer where the LSB is an 8-bit char- 
acter and the MSB is an 8-bit unsigned char attribute. 


16-bit screen token 


LSB MSB 
char attr 


om 


Note that function scrn__init() is only an empty shell function in the 
OS/2 Full Screen library. This has been done to minimize the differences 
between the OS/2 Full Screen library and the DOS library. Note that the 
make (mk__) function descriptions follow the screen function descriptions. 


Table 4-1 presents the function prototypes for the screen and make 
related functions, while Table 4-2 presents make function prototypes. 


Table 4-1 Screen function prototypes. 


void scrn_write(int row, 
int col, 
int len, 
char *Str, 
UCHAR attr); 


void scrn_init(void); 

int scrn_read_char(unsigned short, unsigned short); 
void scrn_save(void); 

void scrn_restore(void); 

void scrn_clear(void); 

void scrn_attr(int, int, int, unsigned char); 

void scrn_change_attr(unsigned char); 

void scrn_char(int row, int col, char ch, UCHAR attr); 


void scrn_repeat_char(int row, 
int col, 
int len, 
char ch, 
UCHAR attr); 


void scrn_chrfint, int, int); 


Table 4-2 Make function prototypes. 


UCHAR mk_attr(UCHAR fore, 
UCHAR back, 

UCHAR intensity, 

UCHAR blink); 
UCHAR mk _attr_intense(UCHAR attr); 
UCHAR mk_attr_intense_blink(UCHAR attr); 
UCHAR mk_attr_inverse(UCHAR attr); 
UCHAR mk_attr_blink(UCHAR attr); 
int mk_token(UCHAR Ilsb, UCHAR msb); 


screen function descriptions 


Function scrn__init() 
Usage scrnawinitt): 


Remarks This function is used to initialize the pointer to direct screen 
memory in the DOS library. As the OS/2 library does not write 
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directly to the screen, function scrn__init() is an empty 
shell in the OS/2 library. 


Function scrn__save() 
Usage scrn__save(); 


Remarks This function saves the screen to a static buffer. It provides a 
quick and easy way to save the text screen image. 


Function scrn_restore() 
Usage scrn__restore(); 


Remarks’ This function restores a screen image that has been previ- 
ously saved using the scrn__save() function. 


Function scrn_clear() 

Usage scrn__clear(); 

Remarks’ This function provides a quick and easy way to clear the text 
screen. It clears the screen using the NORMAL (7) screen 
attribute. The NORMAL attribute designates WHITE for the 


foreground color, BLACK for the background color, sets fore- 
ground INTENSITY off and foreground BLINK off. 


Function scrn_write(...) 
Usage Scrn__write(row, col, len, «str, attr); 
where 


row is an int 

col is an int 

len is an int 

Str is a pointer to a character buffer 
attr is an unsigned char 


Remarks’ This function writes a string of characters to the screen at a 
designated row and column screen location using a specified 
screen attribute. Note that if the |en variable is O the entire 
string (NULL terminated) will be printed. If |en is greater than 
O then only |en number of bytes will be printed. 


Function scrn_char‘(...) 

Usage Seri Cer crow. Col. -Chs GULr ys 
where 
row is an int 
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Remarks 


col is an int 
ch is a character 
attr is an unsigned character 


This function writes a character to the screen at a specified 
row and column location using a designated screen at- 
tribute. 


Function scrn__chr‘(...) 


Usage 


Remarks 


scern__cnr( row, tol, token): 
where 


row is an int 
col is an int 
token is an int 


This function writes a 16-bit screen token to the screen ata 
specified row and column screen location. 


Function scrn__repeat_char(...) 


Usage 


Remarks 


scrn__repeat__char(row, col, length, ch, attr); 
where 


row is an int 

col is an int 

length is an int 

ch is a character 

attr is an unsigned character 


This function repeats a singular character length number of 
times using a designated attribute starting at a specified row 
and column screen location. 


Function scrn_aittr(...) 


Usage 


Remarks 


Sscrn__attr(row, col, length, attribute); 
where 


row is an int 

col is an int 

length is an int 

attribute is an unsigned char 


This function alters length number of screen attributes start- 
ing at a designated row and column screen location without 
altering screen characters. Function scrn__attr(...) proves 
very useful for creating highlight bars in menus. 
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Function scrn_change_attr(...) 


Usage 


Remarks 


Scrn__change__attr(attr); 

where 

attr is an unsigned char 

This function changes all the attributes of a screen to a spec- 


ified value without altering the character values appearing on 
the screen. 


Function scrn__read__char‘(...) 


Usage 


Remarks 


token= scrn__read__char(row, col): 
where 
token is an int 


row is an unsigned short 
col is an unsigned short 


This function returns a 16-bit screen token from a specified 
row and column screen location. The screen character value is 
placed in the LSB of the token and the screen character 
attribute is placed in the token’s MSB. 


Make functions description 
Function mk_attr(...) 


Usage 


Remarks 


attr= mk__attr(RED, 
WHITE, 
QOFF__INTENSITY, 

FF JBL INR): 


where 


attr is an unsigned char 

RED is an unsigned char 

WHITE is an unsigned char 
OFF__INTENSITY is an unsigned char 
OFF__ BLINK is an unsigned char 


This function returns an 8-bit screen attribute. Note that 
the four parameters used in the example are defined in 
TSTRUCT.H (FIG. 1-4). 


Function mk_attr_intense(...) 


Usage 


jntense= mk__attr__intense(attr): 


where 
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Remarks 


intense is an unsigned char 
attr is an unsigned char 


This function receives a screen attribute previously created 
using the mk__attr(...) function and turns foreground 
intensity on. 


Function mk__attr_inverse(...) 


Usage 


Remarks 


inverse= mk__attr__inverse(attr) ; 
where 

Inverse is an unsigned char 

attr is an unsigned char 


This function receives a screen attribute previously created 
using the mk__attr(...) function and reverses the fore- 
ground and background colors. 


Function mk_attr_blink(...) 


Usage 


Remarks 


blink= mk__attr__blink(attr); 
where 

blink is an unsigned char 

attr is an unsigned char 


This function receives a screen attribute previously created 
using the mk__attr(...) function and turns the foreground 
blink on. 


Function mk_attr_intense_blink(...) 


Usage 


Remarks 


intense_blink= mk__attr__intense_blink(attr); 
where 

intense blink is an unsigned char 

attr is an unsigned char 


This function receives a screen attribute previously created 
using the mk__attr(...) function and turns the foreground 
intensity and blink on. 


Function mk_token(...) 


Usage 


token= mk__token(ch, attr): 
where 


token is an int 
ch is a char 
attr is an unsigned char 
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Remarks This function receives an 8-bit character and an 8-bit 


attribute and returns a 16-bit token. 


Function mk_char_attr(...) 


Usage 


mk char__attr(token, «*ch, *attr); 
where 


token is an int 
ch is a pointer to a char 
attr is a pointer to an unsigned char 


Remarks _ This function splits a 16-bit screen token and places the char- 


acter in the char pointed to by *ch and the attribute in the 
unsigned char pointed to by «attr. 


Demonstration of useful screen management routines 
Figure 4-1 presents the source code listing to PROG4-1.C. This program 


demonstrates the use of many screen management functions. 


4-1 The source code listing to PROG4-1.C. 
PELPI TE EL EPL IPE EPP PLT PIL ELIE Tae 


// 

// prog4-l1.c 

// 

// Demonstrates: 

// 

If scrn_ini tt) 

‘i. SP eee 

// Initializes the screen. It’s 
// required only by DOS programs. 
// It’s coded in the OS/2 FS library 
// for migration purposes only. 
i 

ii mk_attr() 

‘if —-Sseaetees 

// Makes a text attribute. This 
ei attribute controls foreground 
Pi color, background color, 

// foreground intensity and 

fe foreground blink. 

ry 

re scrn_change_attr() 

(¢. (‘eee owes sees an rs 

Fe Changes the screen attributes 
ct without altering characters. 
// 

// 

fi scrn_write() 

{ff ss Peeeeeens 

if Writes a string to the screen 
fy at a designated row and column 
// location using a specified 

// screen attribute. 
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4-1 Continued. 


// 

// scrn_repeat_char() 
Serer resnasss 

// Repeatedly writes a character 
// to the screen starting at a 
iy designated row and column 

fy location using a specified 


is attritute. 


// 
PEPEILAL ATT PEEP TTT ETAT ae 


eee reer eee seer eeerreereierecrerieg: 
ry 

// Compiler includes here 

ei 


feinclude <stdio.h> 
POELES URL IA LAPP E TIPPEE Peri ee 
// 


// Library includes here 
// 


fFinclude “tproto.h” 


PEL PI PEL EAT PLE EET IAG ELI EPP EPP GGT TELE 
// 
// main function 
// 
void main() 
{ 
// 
// initialize the screen 
// 
Sern iMttt ss 


// 
// save the current cursor location 
// 


cu_save_loc(); 


if 
// save the current cursor size 
// 


cu_save_size(); 


// 
// save the screen 
// 


scrn_save(); 
rf 
// print message to the screen 
// 
scrn_repeat_char(0, 
0 ’ 
80, 
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// 


mk_attr (WHITE, BLUE, ON_INTENSITY, OFF_BLINK)); 


scrn_write(od, 
0, 
OQ. 
“Press any key to alter screen attributes”, 
mk_attr(WHITE, BLUE, ON_INTENSITY, OFF_BLINK)); 


// 
// stop program and wait for key press 
// 


kb _read(); 


fi 
// alter screen attributes 
it 


Scrn_change_attr(mk_attr(WHITE, BLUE, ON_INTENSITY, OFF_BLINK)); 


// 
// print another message 
ff 


scrn_write(l, 
0, 
0, 
“Press any key to restore original screen”, 
mk_attr(WHITE, RED, ON_INTENSITY, ON_BLINK)); 


// 
// stop program and wait for key press 
// 


kb_read(); 


// 
// restore the screen 
// 


scrn_restore( ): 


fi 
// restore cursor location 
// 


cu_rest_loc(); 

ie 

// restore previously saved cursor size 
if 


cu_rest_size(): 


PEEP EPPE PEP PETEEPPA LIED EPP PLE PT PID PE 


4-1 


Ends. 
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Introduction to menu bar / drop down window creation 


Figure 4-2 presents the source code listing to PROG4-2.C. This program 
begins to explore one way to create a text based menu bar / drop down 
window user interface using the screen functions presented earlier. 


4-2 The source code listing to PROG4-2.C. 
PEEELL ELE ETI E ELS TTT ETAT AT TET a 
2 


jf pYroga-2.¢ 

ry 

// Demonstrates: 

// 

re scrn_clear() 

jf -- Se wee ee eee eee eee 

// Clears the screen using the 
fe Normal(/7) attribute 

ii 

fe Ssern_autr? 3 

if ‘see raeeaese 

74 Alters a screen attribute at a 
ji Specified row and column 

a location. 

if 

fi setRect() 

if <SGereeere 

// Initialize rectangular structure 
ii 

fi boxRect() 

Pees 

jit Draw a box on the screen 

ei 

// SaveRect() 

i deed aiehebetahe 

// Save rectangular screen image 
iy 

// restRect() 

{jf ene ee ee 

f7 Restore rectangular screen image 
// 

/ if dsyRect() 

jf Se Ree Ree 

ii Destroy rectangular structure 
a 


POPPI SETI LITERS CLG a Ee t 
PERS ETIPI PAIL II TEP EL aa ae a Tt 
// 

// Compiler includes here 

if 


fHinclude <stdio.h> 
#Hinclude <memory.h> 


PEEPEPEPE RPP LSTAL TITRE ETP EET EE ELL Es 
if 


// Library includes here 
// 
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#Finclude “tproto.h” 


PELTLLITTTTTTTTTTTTTT TTT TTT TTT TT 
// 


// function prototypes 


// 

int openDD_File(void); 

int openDD_Print(int num_copies); 
int openDD_Options(void); 

int openDD_Help(void); 

void print_menu_bar(void); 

// 


PEPPSEL TEP EI ETP EIT EPL ILE PEPE PELE EES 


PELPPPELELP PPE PEL EISELE TPE PPE EL 
// 

// print the menu bar 

// 


void print_menu_bar() 


{ 

UCHAR attrl, attr2; 

ff 

// make the attributes 
// 


attrl= mk_attr(WHITE, 
attr2= mk_attr(WHITE, 


BLUE, 
BLUE, ON_INTENSITY, 
// 
// print menu bar 
// 
Scen sttr tg, @, 80, attri: 
scrn_write(0, 

0 ’ 

0, 

“ File 

SEGPL 


Print Options Help”, 


fi 
// highlight hot keys 
fi 


Scrratimiy, Li. 1, 
scrm_aturtd, 7, d, 
SCOUT. 14. a. 
SCrv_BTtr(G, 2a, 1, 


attr2): 

attr2): 
attr2): 
attire): 


// 
SSESPECCC SSIS SP ASL SSCP PIS ES CREST OS AE a 


OFF_INTENSITY, 


OFF_BLINK); 


OFF_BLINK) ; 


// highlight F 
// highlight E 
// highlight 0 
// highlight H 
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4-2 Continued. 


EEESRESSRE CREEPER CEZ CSP RE PES PISS Se eae, 
// 

// open File drop down window 

// 


int openDD_File() 

UCHAR attrl, attr2, exit_flag= 0; 
RECT xR; 

int key, oldrow= 0, newrow= 0; 


// 
// set attributes 
{7 


attrl= mk_attr( BLUE, WHITE, OFF_INTENSITY, OFF_BLINK); 
dttrz= mk attr( Blue, WHITE, ON_INTENSITY. OPP_BLINK): 


// 
// initialize the rectangualr structure 
ei 
R= setRect(R, 
Lis 
Qs 
LP og 
Le Ps 


fy 
// save the screen image under the rectangle 
if 


SaveRect(R); 

// 

// draw a rectangular bos under the File option 
// using a Single sided border ($.S$_5 S$): 

// 


boxRect(R, 


// 

// attributes change on File option 

ff 

Scr Acer. ©, 8. 2etri?: 

pi 

// main keyboard loop 

Ii 

do { 
// write the menu items to the screen 
scrn_write(2, 


Lg 
0, 
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‘ Open 
SccrLi: 


scrn_write(3, 
I 
Q, 
* ERT 
attri): 


scrn_attrioldrow + 7, 2, 5, attrl): 
SCrmAcertz, 

fs 

i 

attire}: 
BCrR_ALCPIS, 

ce 

i 

ature 2 
// draw highlight bar 
Scrn_attr(newrow + 2, 1, 7, mk_attr_inverse(attrl)); 
key= kb_read(); 
// process key press 


Switch(key) | 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_X; 
else { 
key= ALT_O; 
exit_flag= 1; 
break; 


// select file for printing 
// quit program 
// no action 


case ALT_O: 

case ALT_X: 

case ESCAPE: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
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4-2. Continued. 


if(newrow == 1) { 
newrow= 0; 


else { 
newrowt++; 
break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K:. 
if(newrow == 0) { 
newrow= 1; 
} 


else | 
newrow--;: 


} 
break; 
} 


} while(lexit_flag); 
// restore original screen image 
restRect(R); 
// destroy the RECT structure (free memory) 
dsyRect(R); 
// 


// return menu bar to original state 
// 


print_menu_bar(); 


// 
// return the key press 
// 


return key; 


// 
PELEE EPEAT ATA EPA A ETT PT Tas 


MOOT Pee eee eee ee Cease ege cree eee eee ee| 
fi 

// open Print drop down window 

// 


int openDD_Print(int num_copies) 
{ 

UCHAR attrl, attr2, exit_flag= 0; 
RECT &R; 

char buffer([20]; 
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int 


key, oldrow= 0, newrow= 0; 
iy 
// set attributes 
if 


attrl= mk _attr( BLUE, WHITE, OFF_INTENSITY, OFFEF_BLINK): 
attr2= mk_attr(BLUE, WHITE, ON_INTENSITY, OFF_BLINK); 


// 

// initialize the rectangualr structure 
fy 

R= setRect(R, 
Ls 
on 
LS ey 
6 + 22): 


// 
// save the screen image under the rectangle 
re 


saveRect(R); 
ff 
// draw a rectangular bos under the File option 


// using a Single sided border (S_S_S_S); 
i? 


boxRect(R, 


// 
// attributes change on Print option 
// 


Sern dtirlg, 6, 7, autri): 
ji 
// main keyboard loop 
// 
do { 
// write the menu items to the screen 
scrn_writet2, 
I 6, 
De. 
“ Number of Copies 
attrl): 
memset(buffer, 0, 10); 
Sprintf(buffer,”% 3d”, num_copies); 
Scrn_write(2, 


Le ee 
Ds 
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4-2 Continued. 


buffer, 
attrl): 


scrn_write(3, 
lL + &, 
Q, 
~ Start Print Job... 
attr) : 


scern_attrloldrow + 2, 2+ 6, Zl, attri): 
scrn_attr(Z, 

c+ 6, 

1 ’ 

attr2): 
sern_attri(3. 

6 + 6, 

lL; 

attr2); 
// draw highlight bar 
scrn_attr(newrow + 2, 1+ 6, 21, mk_attr_inverse(attrl)); 
// get key press 
key= kb_read(); 
// process key press 


Switch(key) | 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_X; 
} 
else { 
key= ALT_O; 
} 
exit_flag= 1; 
break; 


// select file for printing 
// quit program 
// no action 


case ALT_O: 

case ALIT_X: 

Case ESCAPE: 
exit_flag= 1; 
break; 
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// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 1) { 
newrow= 0; 


else { 
newrowt++; 
} 

break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= |; 


else { 
newrow--; 
break; 
} while(!exit_flag); 

// restore original screen image 
restRect(R); 
// destroy RECT structure 
dsyRect(R); 
// 
// return menu bar to original state 
// 
print_menu_bar(); 
if 
// return the key press 
fi 
return key; 


// 
DEEPER EPI TRALEE A ETT P TEDL E LET EL ETT PP i 


PPP ee PP ETT ETS iis 
// 

// open Options drop down window 

// 


int openDD_Options() 
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4-2 Continued. 
UCHAR attrl, attr2, exit_flag= 0; 
RECT «R; 
iAT key, oldrow= 0, newrow= 0; 
fz 
// set attributes 
fi 
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attrl= mk_attr(BLUE, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(BLUE, WHITE, ON_INTENSITY, OFF_BLINK); 


// 
// initialize the rectangular structure 
// 
R= setRect(R, 
i? 
Lo5 
L + 3, 
Le + 74)3 


es 
// save the screen image under the rectangle 
// 


SaveRect(R); 


// 

// draw a rectangular bos under the File option 
// using a Single sided border (S_S_S_S); 

Ff 


boxRect(R, 
5S SS, 
attri): 


ce 
// attributes change on Options option 
a 


scrn_attrtg, 13, 9, attrl?: 


// 
// main keyboard loop 
Ee 


do { 
// write the menu items to the screen 


scrn_write(2, 
te ae 
oF 
‘ Select Print Options 
attrl); 


scrn_write(3, 
iL + 13, 
Us 
“Install Printer Codes “ 


Screen management demonstration programs 


attri): 


scrmattr(olarow + 2, 2+ 13, 23, attri): 
Sern_attr (2. 
2 13, 
L, 
attr2): 
seri attrt3, 
6 + 13, 
1 ’ 
attr2); 
// draw highlight bar 
scrn_attr(newrow + 2, 1+ 13, 23, mk_attr_inverse(attrl)); 
// get key press 
key= kb_read(); 
// process key press 


Switch(key) { 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_X; 
else { 
key= ALT_O; 
} 
exit_flag= 1; 
break; 


// select file for printing 
// quit program 
f? no action 


case ALT_O: 

case ALT_X: 

case ESCAPE: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 1) { 
newrow= 0; 


else { 
newrowt+; 
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4-2 Continued. 


break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= 1; 


else { 
newrow--: 
break; 
} 


} while(!exit_flag); 
// restore original screen image 
restRect(R); 
// destroy RECT structure 
dsyRect(R); 


// 
// return menu bar to original state 
// 


print_menu_bar(); 


// 
// return the key press 
// 


return key; 


// 
SERCPES CLEP EE SECC CPE Pere eee ee eae se: 


PPELESSLPSS FORE Cee ee Pele cere reer. fb: 
ne 

// open help drop down window 

ies 


int openDD_Help() 

| 

UCHAR attrl, attr2, exit_flag= 0; 
RECT xR; 

int key, oldrow= 0, newrow= 0; 


// 


// set attributes 
// 
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atGrl= Mk gti rcelue, WHITE, UPP_INTERSIIY. OFF_BLINK): 
attr2= mk_attr(BLUE, WHITE, ON_INTENSITY, OFF_BLINK); 


ff 
// initialize the rectangular structure 
// 
R= setRect(R, 
ie 
ce, 
L a Ay 
22 ¢ 19): 
// 
// save the screen image under the rectangle 
ff 


SaveRect(R); 


// 

// draw a rectangular bos under the File option 
// using a Single sided border (S_S_S_S); 

// 


boxRect(R, 


// 
// attributes change on Help option 
// 


scrn_attr(0., 22, 6, attri): 


fi 
// main keyboard loop 
if 


do { 
// write the menu items to the screen 


scrn_write(2, 
L +} 22. 
0, 
“ Frogram 1nTOi.-+ 
atoril: 


scrn_write(3, 
lL + 22, 
Q, 
~ Draneot Inte... 
ectri}: 


Sscrn_attr(oldrow + 2. 2+ 22, 5, attrl): 
Scrn_attr(z., 
e+ ¢f, 


l, 
etire): 
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4-2 Continued. 
scr ater, 


2 22, 

il ’ 

autre): 
// draw highlight bar 
Scrn_attr(newrow + 2, 1 + 22, 18, mk_attr_inverse(attrl)); 
// get key press 
key= kb_read(); 
// process key press 


Switch(key)  { 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_P; 
} 
else { 
key= ALT_M; 
} 
exit_flag= 1; 
break; 


// select program help 
// select mentaur help 
// no action 


case ALI_P: 

case ALIT_M: 

case ESCAPE: 
exit_flag= 1; 
break; 


// quit program 


case ALIT_X: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 1) { 
newrow= 0; 
} 


else { 
newrow++; 
break; 
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// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= 1; 


else { 
newrow--; 
} 

break; 


} while(!exit_flag); 
// restore original screen image 
restRect(R); 
// destroy RECT structure 
dsyRect(R); 
// 
// return menu bar to original state 
fi 
print_menu_bar(); 
fd 
// return the key press 
// 
return key; 


// 
PIP EA ETL EET PATEL ELI ERTL TE TAT Pa Pa 


SUITE EP PPI TI Lia i Pi tea iii 
fr; 

// main function 

zi 


void main() 
UCHAR 3 OO ale 
UCHAR exit_flag= 0; 


int key, ret_val, num_print_copies= 1; 
if 
// initialize attribute 
id 


attr2= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
// 


// initialize the screen 
ai 
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4-2 Continued. 
SCrm TATE i: 
ne 


// save the current cursor location 
// 


Cu_save_loc(); 


// 
// save the current cursor size 
ff 


cu_Save_size({): 


// 
// save the screen 
ie 


scrn_save(): 


// 
f/f turn off the cursor 
Ye 


Cu_remove(): 


// 
// clear the screen 
if 


scrn_ clear): 


// 
// alter screen attributes 
// 


scrn_change_attr(attr2); 
iy 

// print menu bar 

if 


print_menu_bar(); 
// 


// print exit message at the screen bottom 
// lower right 


// 

Scrn_repeat_char(23, 
0, 
80, 
196, 


mk _attr( BLACK, WHITE, OFF_INTENSITY, OFF_BLINK)); 
scrn_write(24, 


SO, 
0, 
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// 


“Leave Program: ALI-X”, 


mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK)); 


// main program loop 


if 
do 


// 


// get the keyboard 
key= kb_read(); 
// process key press 


Switch(key) { 


case ALI_X: 
exit_flag= 1; 
break; 


case ALI_F: 
// open drop down window 


ret_val= openDD_File(); 


if(ret_val == ALT_X) { 
exit_flag= 1; 
} 

break; 


case ALT_O: 
// open drop down window 


ret_val= openDD_Options(); 
break; 


case ALI_P: 
// open drop down window 


ret_val= openDD_Print(num_print_copies); 
break; 


case ALT_H: 
// open drop down window 


ret_val= openDD_Help(); 
break; 
} while(!exit_flag); 


// restore the screen 


// 


scrn_restore( ): 


ie 


// restore cursor location 


i} 
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4-2 Continued. 
cu_rest_loc(): 


fe 
// restore previously saved cursor size 
// 


cu_rest_size(); 

fi 

// display the cursor 
is 


cu_display(); 


// 
PEE PEEL ELISE LIL PELE CIT Ea PE 


4-2 Ends. 


Summary 


This chapter presented many useful screen and screen attribute manage- 
ment functions. These included the ability to: 


e Create a screen attribute 

e Alter attributes in a variety of ways 

e Write a character and attribute to the screen 

e Alter screen attributes without changing the characters 
e Write a string of characters to the screen 

e Read a character and attribute from the screen 


Chapter 5 introduces mouse management function descriptions and dem- 
onstration programs. 
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5 


Mouse management 
demonstration programs 


This chapter contains demonstration programs that show how to read text 
mouse cursor row and column location along with button press status. 
When the routines in this chapter are combined with those within the 
keyboard management arena all the foundation blocks are there to create 
a keyboard and mouse event handler. 

Table 5-1 presents the function prototypes for the mouse related 
functions. 


Table 5-1 Mouse function prototypes. 


int ms_init(void); 

void ms _ on(void); 

void ms _ off(void);: 

int ms_status(int «x, int xy); 

void ms_map_display(int row, int col, int key_val); 


Mouse function descriptions 
Function ms_ init() 
Usage bULTOMS= mS 1nMit(); 
where 
buttons is an int 


Remarks On successful initialization of the mouse this function re- 
turns the number of buttons on the mouse. If function 
ms__init(...) returns Oxffff, the mouse was not properly 
initialized. 


Function ms__on() 
Usage ms__on(); 


Remarks This function turns the mouse on (makes it visible). 


Function ms_ off() 
Usage ms. of fC): 


Remarks This function turns the mouse off (makes it invisible). 


Function ms__status(...) 
Usage Status= ms__status(*x, *y); 
where 


Status is an int 
X is a pointer to an int 
' y is a pointer to an int 


Remarks This function returns a O when there is no mouse button 
event. When there is a mouse button event a 1 (left button) or 
2 (right button) is returned to status. Once the button is 
pressed, you can check the location of the mouse via xX and y 
and determine the action which should be taken. 


Function ms_map__display(...) 
Usage ms__map__display(row, col, esc__key__val); 
where 


row is an int 
col is an int 
esc__key val is an int 


Remarks __ [| wrote this function to help map areas of the screen. When you 
invoke this function, program execution is held within the map- 
ping routine. When you press a mouse button, the row and col- 
umn location of the mouse is printed to the screen at row and 
col. The esc__key__val is the key press value that terminates 
the mapping function and allows your program to continue ex- 
ecuting. I repeatedly used this function when developing dialog 
boxes or drop down windows; it proves very useful. 
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Map your full screen OS/2 or 
DOS display using the mouse 


Figure 5-1 presents the source code listing to PROGS-1.C. This program 
shows how to read mouse button press status along with the row and 
column location of the mouse. 


5-1 The source code listing to PROG5-1.C. 
PEATE E LPL EPL ET PALA P PL EPP EPL ETP ea a Td 


// 

i? GPOgS-1,e 

// 

// Description: 

// This 18 a demonstration of a 
// mouse and keyboard event 

if handler that will help you 
// map your character display. 
fy The debug-type event handler 
// was used in mapping the 

// menu bar/ drop window version 


yi of the print utility presented 
// in Chapter 6. 
Me 


FI ELL EPL ELL IIIT AAR EL EPI TE PT ET Tai 
// 

// Compiler includes here 

ry 


fHinclude <stdlib.h> 
#include <stdio.h> 
#Hinclude <memory.h> 


eee eeeeeeereeeeereee ree eeeseeeeeeree: 
// 

// Library includes here 

// 


#include “tproto.h” 


FERED ERR S SESE PEP OC LER SEES ee Peer eee rere) 


if 

// global variable 

// 

int mouse_installed= 0; 


PIPII ISI ETI EI PPT PTA a 
// 

// main function 

fi 


void main() 
{ 
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5-1 


72 


Continued. 


ii 
// initialize the screen 
// 


scrp_initt): 


// 
// clear the screen 
re 


scrn_clear();: 


fz 
// move the cursor 
// 


Ccu_move(l, QO); 


// 
// remove the cursor from the display 
// 


Cu_remove(); 


// 
// check to see if the mouse is installed 
// 


mouse_installed= ms_init(); 


fi 

// if the mouse is not installed print the 

// not installed message and return to the OS 
// 


if(!mouse_installed) { 
printf( “Mouse not installed\n”); 
exitio); 


// 

// turn on the mouse 

// 

ms_on(); 

fz 

// map the mouse display to get dialog box coordinates 
// 

ms_map_display(10, 10, F10); 
// 

// turn off the mouse 

// 

ms..off(): 


// 
// display the cursor 
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ig 


cu_display(); 


// 
PEEEEPEEE TEER ELE EP EEE EEE TEST EPS PEL aT 


5-1 Ends. 


Map the user interface presented in PROG4-2 


Figure 5-2 presents the source code listing to PROG5S-2.C. This program 
demonstrates how to begin the mapping process for two drop down 
windows. In essence, it is part of the window mapping process. The 
process goes something like this: 


e Write a program that displays the window. 

e Invoke ms__map__display(...) function and simply move the 
mouse about the screen noting the row and column locations of the 
mouse where program action should be taken upon a button press. 


5-2 The source code listing to PROG5-2.C. 


EEL EIS ESTED EEL AGIA I  dy 
// 

ff pregs-c.c 

fe 

// Description: 

ff Real world mapping demo 

// of PROG4-2.C 

// 


PEPE ERP TLEE TELE LEL PPP EP PPPS PPP 
ii 

// Compiler includes here 

iy 


f#Hinclude <stdio.h> 
fHinclude <stdlib.h> 
fHinclude <memory.h> 


PERSE ESC CEERECER SE SCRE eee ere ereeenael 
// 

// Library includes here 

// 


#include “tproto.h” 

SEES CEE EPELECSESEL PES ROTEL ES Se Tee ee T 
// 

// function prototypes here 

fi 


void print_menu_bar(void); 
void print_print_DD(void); 
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5-2 Continued. 
PAL PEL EELS PTET PEEPS EPSP Pi Tit 
Si 


// global variable 
// 


int mouse_installed= 0; 


DES ESCE SECC SES SSEL SCO C SLCC LES C ESSER i 
pi 


// main function 
// 


void main() 
{ 


if 
// initialize the screen 
// 


scrn_initt): 


fi 
// clear the screen 
fi 


scrn_clear(); 


ei 
// move the cursor 
// 


cu_move(l, 0); 


// 
// remove the cursor from the display 
ii 


Cu_remove(); 


// 
// initialize the mouse 
// 


mouse_installed= ms_init(); 


i? 

// if the mouse is not installed then 

// print the appropriate message and return to 
// the OS 

J ¢ 


if(!mouse_installed) | 
printf( “Mouse not installed\n”); 
exit(0); 
CREEP CEE RRT EL ELEC PEPE LE ESET OSES EE: 
// 


// interface displayed here 
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// 
print_menu_bar(); 


// 
// turn on the mouse 
// 


ms.onl ys 


// 
// map the menu bar 
// 


ms_map_display(l0, 10, F10); 


// 
// turn off the mouse 
// 


ms_orft): 


// 
// clear the screen 
re 


sern_ clear() 


ff 
// move the cursor 
fie 


cu_move(0O, 0); 


ff 
// display the cursor 
‘ei 


cu_display(); 


PEPEPLEPEP EAGLE EEE PA REPEAL PEE PET EP EL ET 
// 

// Print the menu bar 

// 

// This function prints the area of the 
// screen which is to be mapped by the 
// mouse. 

// 


void print_menu_bar() 
| 

UCHAR attrl, attr2; 
RECT «R, «Rl; 


attrl= mk_attrCwHITE, BLUE, OFF_INTENSITY, OFF BLINK): 
attr2= mk_attr(WHITE, BLUE, ON_INTENSITY, OFF_BLINK); 


scrnm_atertig, 0, 60, attri): 
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5-2 Continued. 
scrn_write(od, 
Q, 
ce 
“File Print Options Help”, 
attri): 


R= setRect(R, 


scrn_write(2, 
iv 
0, 
“ Open 
attriy: 


scrn_write(3, 
Ks 
0, 
eh 
attrl): 


scrn_attrtz, 
2. 
LA 
atte }s 


Ser gucris, 
3, 
Li 
AtirZed: 


R1= setRect(Rl, 
is 
Pe 
(oe aes 
Ze + 20}: 


boxRect(Rl, 


scr attri, 22, 6, atirls: 


scrn_write(2, 
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Ll + 22, 

iP 

” PROGram Into... 
atirl): 


scrn_write(3, 
l + 22, 
0, 
“ Dranoel Info... “, 
attri); 


SCcrhn_attri(z., 
St Be 
E, 
atere i: 


Scrn_AttPri(s, 
2 22, 
des 
aGEre)s 


FEPPES TTL ELC EP ESET IEEE ET II GT i 
// 

// Print the drop down window 

// 

// This function prints the area of the 
// screen that is to be mapped by the 
// mouse. 

f. 


void print_print_DD() 


UCHAR attrl; 
RECT xR; 
attrl= mk_attr(BLUE, WHITE, OFF_INTENSITY, OFF BLINK); 
R= setRect(R, 
rs 
6, 
L +3, 
6 + 22): 


boxRect(R, 
SS 
aLLYFL): 


scrn_write(2, 
1 + 6, 
a 
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5-2 Continued. 


‘ Number of Copies 
attrl): 


scrn_write(3, 
1 + 6, 
0, 
* Scart PRING WG6Eb... 
atari i: 


if 
PEELET ATER E LL EEL EL ERTS PELE Pa EE 


5-2 Ends. 


PROG4-2’s interface becomes 
keyboard and mouse driven 


Figure 5-3 presents the source code listing to PROGS-3.C. This shell-type 
program is one way to implement a keyboard and mouse driven menu bar 
/ drop down window user interface. 


5-3 The source code listing to PROG5S-3.C. 
CECE CPPREE ESI EAS SCL RESELL ES AEE LS ST oF 
// 


/f progs-3.c 
// Demonstrates: 


// Integration of mouse into user 
ff interface. 


// 
PLELIPEAL SPEIRS T LETTE PTR SET EE EL EE 
RECESSES CA URE SPECI S ECLIPSE eee ee Ee 
// 


// Compiler includes here 
// 


#Hinclude <stdio.h> 
#Hinclude <memory.h> 


PPUPT LIE ELT ETE LIL ESET PEPE 


// Library includes here 
fi 


#Finclude “tproto.h” 


PEPE EPPA EPP EL EL ERE EAT ES PP PPP ET EY 
// 

// function prototypes 

// 


int openDD_File(void); 
int openDD_Print(int num_copies); 
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int openDD_Options(void); 
bike openDD_Help(void); 
void print_menu_bar(void); 


// 
FEPISILEL LEE EL EIT LETT 


CELI OCRESI SES CRS SLOPES EPEC ER SCOT LEE S| 


// 

// global data 

fi 

int mouse_installed; 

char FILE ALT_OL J= "FILE: Open 
char FILE _ALT_X[]= “FLUES EXIZ 
char FILE_ALT_A[ J= "FILES ADOUE 


char PRINT_ALT_N[EJ= 
char PRINT_ALT_S[]= 
char OPTIONS ALT_P[] 
char OPTIONS ALT_S[E] 
char OPTIONS ALT_IC]J 
char HELP_ALT_P[ ]J= 

char HELP_ALT_M[ ]= 

char ERASE_messagel J= 


"PRINT: Number of copies 
“PRINT: Stert print job 
"OPTIONS: Select printer 
"OPTIONS: Select print options “ 
"OPTIONS: Install printer codes “ 
"HELP: Program help 
"HELP: Dranoel help 


a ee ee ee eee ee ee ee ee a 
~ 
. 
a” a“ ” “ a“ - a a“ 
n” a a” ” “ ” a“ a” a“ 
SS a) ee. ee es ee es es es es ee 
we we wee we ee ee we lel wll 


// 
PEEPEEP REEL IPL LL SPL PPE PEEPS EEL EPL 


CELE PER EL ILS ELL EBL EEE EL EL EI PEL TT! 
// 

// print the menu bar 

// 


void print_menu_bar() 
UCHAR attrl, attr2; 


// 
// make the attributes 
fi 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK); 


// 

// print menu bar 

// 

Scrn_attr(o, G, eo, eLirli; 


scrn_write(0, 


iF 
0, 
“File Print Options Help”, 
ScErl fh: 
// 
// highlight hot keys 
// 
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5-3 Continued. 


SerR ALurta, Ll, 1, BbErc?: // highlight F 
Seern_etcrig, 7, Ly getrd): fe Nighlignt & 
strn_acer(a, If, ly. attrz): // highlight O 
Sern attri. 2s, Ly aUire): // highlight H 


// 
PPP EPI LE LL EL ELECT EEL TIE EE ITA ET EL EET 


PEPE EPEEI CELI PEEL ESET bg eal 
// 

// open File drop down window 

// 


int openDD_File() 

| 

UCHAR attrl, attr2, exit_flag= 0; 

char split_items(llzj= { 195, 196, 196, 296, 196, 196, 
196, 196, 196, 196, 196, 180 3; 

REGT wR: 

int key, oldrow= 0, newrow= 0; 

int A M4 


ce 
// set attributes 
// 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK) ; 
attr2= mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK); 


If 
// initialize the rectangular structure 
// 
R= setRect(R, 
I 
0, 
lL +o, 
L * 10}: 


ff 
// save the screen image under the rectangle 
if 


SaveRect(R); 

// 

// draw a rectangular box under the File option 
// using a Single sided border (S_S_S_S$); 

ii 


boxRect(R, 


// 
// attributes change on File option 
ff 
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Scrniiattrnig. Oo, &, attri): 
// write the menu items to the screen 


scrn_write(2, 
i 
0, 
“ Open 
STLPL 


scrn_write(3, 
1. 
es 
* EX1t 
ALG LS 


scrn_write(4, 
Os 
ies 
split_items, 
atEerli: 


scrn_write(5, 
l, 
0, 
“About... 
attri: 


scrn atirtoldraw + 2, 2, 8, attri: 


scrn_attiri(2, 
ls 
Be 
attre}: 


SEYN ALLE le; 
a 
Ls 
acre ie 


scrm_attr(5, 
fy 
ie 
attire): 


// draw highlight bar 


scrn_attr(newrow + 2, 1, 10, mk_attr_inverse(attrl)); 


if(mouse_installed) { 


ns_ont) 
Hes 
// main keyboard loop 
// 
do { 
if(oldrow != newrow) { 


if(mouse_installed) { 
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5-3 Continued. 


ms oTTt): 


// write the menu items to the screen 


scrn_write(2, 
Ls 
0, 
“ Open 
acces. : 


scrn_write(3, 
Hh 
0 ’ 
* Extt 
attri): 


scrn_write(4, 
0, 
he 3 
split_items, 
attri): 


scrn_write(5, 
L, 
ly 
“About... 
attr): 


Serm_acirtolidrow + 2. 2; 6, @enrli: 


sern_attrt?, 
Cs 
l, 
attr2) : 


SCrn_attris, 

cP 

i 

attr2): 
scrn_attr(s, 

2, 

l, 

attr): 
// draw highlight bar 
scrn_attr(newrow + 2, 1, 10, mk_attr_inverse(attrl)):; 
oldrow= newrow; 
// if mouse installed turn on the mouse 
if(mouse_installed) { 


ns_ond) : 


82 Mouse management demonstration programs 


key= kb_status(); 
if((!key) && (mouse_installed)) { 
key= ms_status(&x, &y); 


ifitkey == 1) €8 (x 2= 8) &6 (x <= [48 4 32)) €& Cy —— 1o)) | 
key= ALT_O; 


if((key == 1) && (x >= 8) && (x <= (48 + 32)) && (y == 24)) { 
key= ALT_X; 
} 


if((key == 1) && (x >= 8) && (x <= (48 + 32)) && (y == 40)) { 
key= ALT_A; 


if((key == 1) && (y >= 8)) { 
key= ESCAPE; 
} 


if( (key == 2) 6G (y 2= 8)) I 
key= RIGHT_ARROW; 
} 


// process key press 
Switch(key) { 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_X; 
} 


else { 
key= ALT_O; 
} 
exit_flag= 1; 
break; 


// select file for printing 
// quit program 
if OG action 


case RIGHT_ARROW: 

case RIGHT_ARROW_K: 

case LEFT_ARROW: 

case LEFT_ARROW_K: 

case ALT_A: 

case ALT_O: 

case ALIT_X: 

case ESCAPE: 
exit_flag= 1; 
break; 


// move highlight bar down 
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5-3 Continued. 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 1) { 
newrow= 3; 
} 


else if(newrow == 3) { 
newrow= 0; 
} 


else { 
newrow++; 


} 
break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= 3; 
} 


else if(newrow == 3) { 
newrow= 1; 
} 


else { 
newrow--; 
} 
break; 
} 


} while(!lexit_flag); 
if(mouse_installed) { 
msofTt) : 
} 
restRect(R); 
dsyRect(R); 
Te 
// return menu bar to original state 
es 
print_menu_bar(); 
if(mouse_installed) { 
ms_on(); 
} 
fi 
// return the key press 
// 


return key; 
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// 
PREP PETEERE LEP EPET PEEL PEEP IP EAE E LE Lf 


PEELE RETREAT ETP PTET ETT PA PT LAE Pad 
// 

// open Print drop down window 

if 


int openDD_Print(int num_copies) 
UCHAR attrl, attr2, exit_flag= 0; 
RECT xR; 

char buffer[20]; 

int key, oldrow= 0, newrow= 0; 
int x, Yi 


// 
// set attributes 
// 


attril= mk_attr( BLACK, WHITE, OFF_LINTENSITY, OFF_BLINK): 
attr2= mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK); 


ie 
// initialize the rectangular structure 
// 


R= setRect(R, 
13 
6, 
1 +3; 
6 + 22): 
if 


// save the screen image under the rectangle 
// 


SaveRect(R); 


ii 

// draw a rectangular box under the File option 
// using a Single sided border (S_S S S); 

ff 


boxRect(R, 
5 5 Ss. 
attri: 
// 
// attributes change on Print option 
if 
SePalattir¢y. b. 2, attrli: 
// write the menu items to the screen 
scrn_write(2, 


Lo, 
0, 
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5-3 Continued. 


“ Number of Copies 
PE a OB ds 


memset(buffer, 0, 10); 
Sprintf(buffer,”’% 3d”, num_copies); 


scrn_write(2, 
Ll + 6-4 16, 
0. 
buffer, 
acirly: 


scrn_write(3, 
ies ae 
U4 
~ Soart Print JOD. « z 
actr lk: 


scrn_attrioldrow + 2, 2+ 6, Zl. attri): 
Sscrin_attrt2, 
2? + 6, 
ii 
attr? }s 
Scrn_attr(3, 
2 + G, 
lL, 
attr2): 
// draw highlight bar 
scrn_attr(newrow + 2, 1 + 6, 21, mk_attr_inverse(attrl)): 


if(mouse_installed) { 


ms_on(); 
} 
// 
// main keyboard loop 
/ / 
do { 
if(oldrow != newrow) { 


if(mouse_installed) { 
nis ort): 
} 


// write the menu items to the screen 


scrn_write(2, 
Lo? Ge 
Q, 
“ Number of Copies 
attri): 
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memset(buffer, 0, 10); 
Sprintf(buffer,”’% 3d”, num_copies); 


scrn_write(2, 
1 + 6 + 18, 
0, 
buffer, 
CN a ae oe 


scrn_write(3, 
1 +e, 
i 
* Start Print Job... 
CLP): 


Scrn_atirioldraw + 2, 2 + 6. Zl, attri): 
Scrn_attri(<, 
2+ 6, 
1 ’ 
attr2): 
scrn_attrts, 
2+ 6, 
1, 
attr2): 
// draw highlight bar 
scrn_attr(newrow + 2, 1+ 6, 21, mk_attr_inverse(attrl)); 
oldrow= newrow; 
if(mouse_installed) { 
ms_on(); 
} 
} 
key= kb_status(); 
if((!key) && (mouse_installed)) { 
key= ms_status(&x, &y); 


it€t(key == 1) && (xX >= 56) && (x <= (56 + (21 & 7))) 


&& (y == 16)) { 
key= ALT_N; 
} 
if((key == 1) && (x >= 56) && (x <= (56 + (21 * 7))) 
&& (y == 24)) { 
key= ALT_S; 


it, (key == 1) @& ly P= BAP 4 


key= ESCAPE; 
} 
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5-3. Continued. 


If(. (Key =—— 2) ab (¥ 2= B)) 
key= RIGHT_ARROW; 


// process key press 
Switch(key) { 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_X; 


else { 

key= ALT_O; 
exit_flag= 1; 
break; 


// select file for printing 
// quit program 
// no action 


case RIGHT_ARROW: 

case RIGHT _ARROW_K: 

case LEFT_ARROW: 

case LEFT_ARROW_K: 

case ALT_N: 

case ALT_S: 

case ESCAPE: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 1) { 
newrow= 0; 


else { 
newrowt++; 
break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= 1; 
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if 
fit 


ffi 
// 
// 
// 


int 
{ 

UCH 
REC 
int 
1At 


else { 
newrow--; 
ts 
break; 
} 


} while(!exit_flag); 
ff 
// if the mouse is installed turn the mouse off 
// 
if(mouse_installed) { 
ms off(): 
} 
restRect(R); 
dsyRect(R); 
// 
// return menu bar to original state 
i 


print_menu_bar(); 


if(mouse_installed) { 


ms_on(); 
} 
// 
// return the key press 
if 
return key; 
PPPITPLT EIT EEE ELT ELE EP TEP EPP EP TT 
PEPTELTEPPEPAEPA TTI PITA LT a 
open Options drop down window 
openDD_Options() 
AR attrl, attr2, exit_flag= 0; 
T oR; 
key, oldrow= 0, newrow= 0; 
X, Y;3 
// 
// set attributes 
// 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK); 
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// 
// initialize the rectangular structure 
ii 


R= setRect(R, 
l, 
13% 
lL + 4, 
is + 74) 


fff 
// save the screen image under the rectangle 
/ / 


SaveRect(R); 


// 

// draw a rectangular box under the File option 
// using a Single sided border (S_S_S_S); 

// 


boxRect(R, 
Se ae 
acurl): 
// 


// attributes change on Options option 
// 


SscPrn_attrcu,. 13, 3, aLtri?:« 


// write the menu items to the screen 


scrn_write(2, 
Le 13, 
0, 
“ Select Printer LPTI1l 
attri): 


Scrn_write(3, 
Lb 23, 
0, 
“Select Print Options 
acerl ys 


scrn_write(4, 
(a camel 2, 
0, 
“ Install Printer Codes “ 
dtirl a: 


Scrn_atctr(oaldrow + 7, 2 + 13. 23, ettrl): 
CERN BLL PL 2. 
eo dae ey 


1 ’ 
acer2}: 
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SCriatePls, 
2 1S, 
Le 
auure ) 3 


SCcrn_actr(4, 
2 13. 
1 ’ 
attr2); 
// draw highlight bar 
scrn_attr(newrow + 2, 1+ 13, 23, mk_attr_inverse(attrl)): 


if(mouse_installed) { 


ms_on(); 
} 
fd 
// main keyboard loop 
// 
do | 
if(oldrow != newrow) { 


if(mouse_installed) { 
ms ort (): 
} 


// write the menu items to the screen 


scrn_write(2, 
1 + 13, 
Q, 
“ Select Printer LPT1 
attri): 


scrn_write(3, 
Lae TS 
Q, 
“ Select Print Options 
attrl); 


scrn_write(4, 
lL 2s, 
0, 
“Install Printer Codes “* 
attrl); 


Seri_AuLrioldrow + 2, 2 + 1a, zo, atirl?: 
Scr acirty. 

2+ 13 + 7, 

Ly 

atirdz): 


SCPH ALLPLS, 
ie |S. 
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1 ’ 
acire) : 


scrn_attr(4, 
e * 13, 
a 
atcure)% 


// draw highlight bar 
oldrow= newrow; 
scrn_attr(newrow + 2, 1+ 13, 23, mk_attr_inverse(attrl)); 
if(mouse_installed) { 
ms_on(); 
} 
} 
key= kb_status(); 
if((!key) && (mouse_installed)) { 
key= ms_status(&x, &y); 
if((key == 1) && (x d= 112) && (x <= (112 + (24 * 8))) 
. && (y == 16)) { 
key= ALT_P; 
} 
if( (key == 1) && (x d= 112) && (xX <= (112 + (24 * 8))) 
&& (y == 24)) { 
key= ALT_S; 
} 


if((key == 1) && (x >= 112) && (x <= (112 + (21 * 7))) 
&& (y == 32)) 


_ 


key= ALT_I; 
} 


if((key == 1) && (Cy d= 8)) { 
key= ESCAPE; 
} 


if((key == 2) && (y >= 8)) { 
key= RIGHT_ARROW; 


// process key press 
Switch(key) { 


// Item selected so 
// break from the loop 


case ENTER: 


if(newrow == 1) { 
key= ALT_S; 
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else if(newrow == 2) { 


key= ALT_I; 
else { 

key= ALT_P; 

} 
exit_tlag= 1; 
break; 


// select file for printing 
// quit program 
// no action 


case RIGHT_ARROW: 

case RIGHT _ARROW_K: 

case LEFT_ARROW: 

case LEFT _ARROW_K: 

case ALIT_P: 

case ALT_S: 

case ALT_I: 

case ESCAPE: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 2) { 
newrow= 0; 


else { 
newrowt+ ; 
break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= 2; 
else { 
newrow--; 
} 
break; 
} 


} while(!exit_flag); 
// 
// if the mouse is installed turn the mouse off 
Pe 


if(mouse_installed) { 
ms_off(); 
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5-3. Continued. 
} 


restRect(R); 
dsyRect(R); 


if 
// return menu bar to original state 
ii 


print_menu_bar(); 


if(mouse_installed) { 
ms_on(); 

// 

// return the key press 

iy 


return key; 


Me 
FREES EEL EPLD LL ELE IEG EL ALTA PETIT 


STE POR CECE CEC CRE Eee eT e Te Cee ee es eer, 
// 

// open help drop down window 

ey 


int openDD_Help() 

UCHAR attrl, attr2, exit_flag= 0; 
RECT «xR; 

int key, oldrow= 0, newrow= 0; 
TAT x, We ; 


// 
// set attributes 
fz 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
atire= mk_attrc Reo, WHITE, OFF_INTENSITY, OFF_BLINK): 


pe 
// initialize the rectangular structure 
// 
R= setRect(R, 
Ls 
ae, 
Lo Sy 
22 + 19); 


fy 
// save the screen image under the rectangle 
re 


SaveRect(R); 
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ei 

// draw a rectangular bos under the File option 
// using a Single sided border (S_S_S_S); 

if 


boxRect(R, 
ae 
ATLL IS: 


// 
// attributes change on Help option 
iy 


scrnattrio. 22, 6, attrl?: 
// write the menu items to the screen 


scrn_write(2, 
iL ep gees 
i 
“ Program Help... 
attr.) 


scrn_write(3, 
Lo ge, 
0, 
“ Draneol Help... 
attri): 


sern_attr(eldrow + 2, 2 * 22, 5, attri): 
SCTRASCTEP UZ: 
2 + 22. 
Ls 
attrz i: 
SCrniattris, 
ie eee ae 
i 
attr2): 
// draw highlight bar 


scrn_attr(newrow + 2, 1 * 22, 18, mk_attr_inverse(attrl1)): 


if(mouse_installed) { 


ms. ont): 
} 
// 
// main keyboard loop 
// 
do { 
if(oldrow != newrow) { 


if(mouse_installed) { 
ms_off(): 
} 


PROG4-2's interface becomes keyboard and mouse driven 95 


5-3 Continued. 
// write the menu items to the screen 


scrn_write(2, 
L + 22, 
0, 
" Program Info... ”, 
air.) 


scrn_write(3, 
1 > 22, 
Q, 
“ Draneol Info... 
attrl):; 


sern_attr(oldrow + 2, 2 22, 5, ALTPL): 


Sern BcLrl 2, 
a 22, 
Ls 
attr2): 


Ssernattrts, 
2 or ge, 
1, 
ACK.) 


// draw highlight bar 
scrn_attr(newrow + 2, 1+ 22, 18, mk_attr_inverse(attrl)); 
oldrow= newrow; 
if(mouse_installed) { 
ms_on(); 
} 
} 
key= kb_status(); 
if((!key) && (mouse_installed)) | 
key= ms_status(&x, &y); 
if( (key == 1) && (x >= 184) && (x <= 328) 
&& (y == 16)) { 
key= ALT_P; 
} 
if((key == 1) && (x >= 184) && (xX <= 328) 
&& (y == 24)) | 
key= ALT_M; 
if((key == 1) && (y >= 8)) 4 
key= ESCAPE; 
} 


if((key == 2) && (y d= 8)) { 
key= RIGHT_ARROW; 
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// process key press 
Switch(key) { 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_P; 
} 


else { 
key= ALT_M; 
} 
exit_flag= 1; 
break; 


// select program help 
// select mentaur help 
// no action 


case RIGHT_ARROW: 

case RIGHT_ARROW_K: 

case LEFT_ARROW: 

case LEFT_ARROW_K: 

case ALT_P: 

case ALT_M: 

case ESCAPE: 
exit_flag= 1; 
break; 


// quit program 


case ALI_X: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN _ARROW_K: 
case DOWN_ARROW: 
if(newrow == 1) { 
newrow= 0; 


else { 
newrowt++; 
} 

break; 


// move highlight bar up 
case UP_ARROW: 


case UP_ARROW_K: 
if(newrow == 0) { 
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newrow= 1; 
} 


else { 
newrow--; 
} 
break; 
} 


} whileC!exit_flag); 


// 
// if the mouse is installed then turn it off 
ff 


if(mouse_installed) { 
ms_off(): 
} 


restRect(R):; 
dsyRect(R); 


if(mouse_installed) { 
ms_on(); 
} 
// 
// return menu bar to original state 
// 


print_menu_bar(); 


// 
// return the key press 
fy 


return key; 
} 


i} 
PREP EERE I TELL LTE OE EID TAT ATI ATT GE EET 


PESPIPTE LPP ELITE TES PTI TT FIT a 
ff 

// main function 

fi 


void main() 

{ 

UCHAR attr: 

UCHAR exit_flag= 0; 


THT key, ret_val, num_print_copies= 1; 
int x, ¥, Counter: 

// 

// initialize the screen 

iy 
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Sern imi tl): 


fi 
// initialize the mouse 
f i 


mouse_installed= ms_init(); 
// 


// initialize attributes 
ed 


attr2= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK) ; 


ii 
// save the current cursor location 
ry 


cu_save_loc({): 


if 
// save the current cursor size 
fi 


cu_save_size(): 


ea 
// save the screen 
if 


scrn_save(); 


ie 
fi turn off the cursor 
las 


Cu_remove(); 


// 
// clear the screen 
‘a 


scrn_clear(): 


// 
// alter screen attributes 
ff 


Scrn_change_attr(attr2); 
i} 

// print menu bar 

// 

print_menu_bar(); 

// 


// fill in block characters 
ii 
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for(counter= 1; counter < 24; counter++) { 
scrn_repeat_char(counter, 
0 ’ 
80, 
Le? 
mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK)); 


// 
// print exit message at the screen bottom 
// lower right 


a) 

scrn_writet24, 
58. 
0 


“leave Program: ALT-A’, 
mk @actrtkeD, WHITE, OFF_INTENSITY., OFF_BLINK)); 


// 
// turn on the mouse if installed 
// 
if(mouse_installed) { 
ms_on(); 
} 
// 
// main program loop 
// 
do { 


// get the keyboard - no wait for key press 
key= kb_status(); 


// if there is no key press and the 
// mouse is installed then 


if((!key) && (mouse_installed)) { 
// check the status of the mouse 
key= ms_status( &x, &y); 
// if there is a left button press and 
// the mouse is at the top of the screen 
// then (using the data that you obtained 
// from PROG5-2) map the mouse location 
// to the appropriate key press 
if((key == 1) && (y == 0)) { 
if((x >= 0) && (x <= 40)) { 
key= ALT_F; 
} 


1f((x >= 48) && (xX <= 96)) { 
key= ALT_P; 
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1f((x >= 104) && (x <= 168)) { 
key= ALT_O; 


if((x >= 176) && (x <= 216)) { 
Key> ALT_A: 


PEPEPI TEAL PIPER LAPP PPL ISAT ATT 
// check to see if ALX-X 


if((key == 1) && (y == 192) && (x >= 456) && (x <= 632)) { 
key= ALT_X; 


// process key press 
new_window: 
Switch(key) { 


case ALT_X: 
exit_flag= 1; 
break; 


case ALI_F: 
if(mouse_installed) | 
ns ort (): 


scrn_write(24, 0, 0, ERASE_message, attr2); 
ret_val= openDD_File(); 


if(Cret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) | 
key = ALT_P; 
goto new_window; 


else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 
key = ALT_H; 
goto new_window; 


else if(ret_val == ALT_O) { 
sern_write(24, 0. O, FILE_ALT_O, attrzZ): 
} 


else if(ret_val == ALT_X) { 
scrm writet¢4, OU, G, FILE ALT xX, atirz): 


else { 


scern wri tec24, 2, G, FILE_ALT_A, attrZ7): 
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if(mouse_installed) { 
ms_on(); 


} 
if(ret_val == ALT_X) { 


exit_flag= 1; 
} 
break; 
case ALI_P: 
if(mouse_installed) { 
ms off (): 


} 
scrn_write(24, 0, 0, ERASE _message, attr2); 
ret_val= openDD_Print(num_print_copies); 


if(Cret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) { 
key = ALT_O; 
goto new_window; 
} 


else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 
key = ALT_F; 
goto new_window; 


else if(ret_val == ALT_N) { 
scrn_write(24, 0, 0, PRINT_ALTI_N, attr2): 
} | 


else { 
scrn_write(24, 0, 0, PRINT_ALT_S, attr2); 


if(mouse_installed) { 
ms_on(); 
} 

break; 


case ALI_OQ: 
if(mouse_installed) { 
ms OTT ty: 
} 


scrn_write(24, 0, 0, ERASE_message, attr2); 

ret_val= openDD_Options(); 

if((ret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) { 
key = ALT_H; 
goto new_window; 
} 

else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 


key = ALT_P; 
goto new_window; 
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else if(ret_val — ALT_P) { 
scrn_writet(24, 0, 0, OPTIONS ALT_P, attrz): 
} 


else if(ret_val == ALT_S) { 
sern_write(z4, 0, 0, OPTIONS_ALT_S. attrz)-: 
} 


else { 
scrn_write(24, 0, 0, OPTIONS ALT_I, attr2); 
} 


if(mouse_installed) { 
ms_on(); 
} 

break; 


case ALI_H: 
if(mouse_installed) { 
ms_off(): 
} 


scrn_write(24, 0, 0, ERASE_message, attr2); 
ret_val= openDD_Help(); 


if(Cret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) { 
key = ALT_F; 
goto new_window; 
} 


else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 
key = ALT_O; 
goto new_window; 
} 


else if(ret_val == ALT_P) { 
scrn_write(24, 0, @, HELP_ALT PP, attir?): 
} 


else { 
scrn_write (24, 0. 0. HELP_ALT_M, attr2Z}: 
} 


if(mouse_installed) { 
ms_on(); 


} 
break; 


} while(!exit_flag); 


// 
// turn off the mouse 
// 
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if(mouse_installed) { 
fis offti: 


// 

// restore the screen 
fe 

scrn_restore(): 


// 
// restore cursor location 
// 


cu_rest.)oct): 


iy 
// restore previously saved cursor size 
ei 


CU PEST 512701}: 


el 
// display the cursor 
// 


Cu displaya): 


iy 
PEPER LEP IL ELI IIE EL EP ETP aa a 


5-3 Ends. 


Summary 


This chapter presented many useful mouse management functions. These 
functions allow you to: 


Initialize the mouse 

e Examine the mouse for a button press event 

e Examine the mouse for its row and column location 
Turn on the mouse (display it) 

Turn off the mouse (remove it from the display) 

e Map the screen for mouse and text location 


Chapter 6 introduces powerful character-based window management 
functions and useful demonstration programs. 
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6 


Character-based 
window management 
demonstration programs 





This chapter contains foundation character-based window management 
functions that take advantage of using a local coordinate system. The lo- 
cal coordinate system permits the programmer to conceive of the window 
as a mini-screen. The row O and column O location of the window with its 
local coordinate system is the upper left hand corner of the window border. 

There are high-level and low-level window functions. Because the 
high-level window functions greatly ease the task of character-based win- 
dow generation, I suggest that you stick with using them and avoid using 
the low-level routines. 

Notice that many of the high-level window functions will have a familiar 
ring to them. For example, you'll note that function wind__write(...) is di- 
rectly related to function scrn__write(...) and function wind__char(...) 
is directly related to function scrn__char(...), ete... 

We've carefully considered the naming conventions used for these 
functions. I believe that the migration library presented in this book will 
prove easy to use because many function names are differentiated only by 
their prefix. That way, once you get the hang of writing to the screen using 
a global coordinate system, you'll easily be able to translate that knowl- 
edge to writing to the window using the local coordinate system. 

The method of popping up a window and then removing it and restor- 
ing the screen is quite simple. Here it is: 


1. Save screen image where window will appear 
2. Write window to screen 


3. Operate in 


window 


4. Save window image to memory 
5. Restore previously saved screen image from 


When you construct a window, you can choose among three border 
styles supported by the library. They are 


Border ID 
oo 


DD DD 
Dps s 


Meaning 


Single line border all around 

Double line border all around 

Double line top and bottom border and single line left 
and right border 


Note that the high-level window management functions are based on 
a foundation of screen and make management functions. Table 6-1 pre- 
sents the function prototypes for the screen. 


Table 6-1 


WIND 


int 


void 
void 
void 


void 


void 


xwind_init(WIND 
int 
int 
int 
int 
UCHAR 
int 
char 
wind_kb_edit(WIND 
char 
int 
int 
int 
int 


UCHAR 


wind_display(WIND 

wind_remove(WIND 

wind_attr(WIND 
int 
int 
int 


High level window function prototypes. 


*W_PTR, 
ulr, 

ulc, 
ier. 
Ire, 
attr, 
border, 
«title ); 
*W, 
*xresponse, 
row, 
column, 
dlen, 
opt, 
atir): 
«W); 
«W); 


*W, 
row, 
col, 
length, 


UCHAR attr); 


wind_write(WIND 
int 
int 
int 
char 
UCHAR 
wind_char(WIND 


*W, 
row, 
col, 
length, 
«String, 
attr): 
*W, 
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Table 6-1 Continued. 


int row, 
int col, 
char ch, 
UCHAR attr); 
void wind_repeat_char(WIND ~ «W, 
int row, 
int col, 
int len, 
char cn, 
UCHAR attr); 
void wind_destroy(WIND «W); 
int wind_read_char(WIND «W, int row, int col); 
void wind_clear(void): 
void wind_cu_move(WIND «W, int row, int col); 


Window function descriptions 
Function wind_init(...) 


Usage 


Remarks 


W= wind__init(W, 
ra ae 
We, 
er 
er 
atLr, 
pOraer., 
#title }: 
where 
W is a pointer to a window structure 
ulr is an int 
ulc is an int 
llr is an int 
lrc is an int 
attr is an unsigned char 
border is an int 
title is a pointer to a character string 


This function is the fundamental window creation routine. It 
initializes the window structure, saves the screen image un- 
der the window and then writes the window. Variables ulr 
and ulc specify the upper left hand corner of the window. 
Variables |rr and | rc specify the lower right row and column 
of the window. Variable attr is the window attribute. Variable 
border designates the window border style. Variable title 
points to the window title string. 
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Function wind__kb__ edit(...) 


Usage 


Remarks 


key= wind _kb__edit(w, 
response, 
row, 
column, 
dlen, 
opt, 
ATER): 
where 
key is an int 
W is a pointer to a window structure 
response is a pointer to a character buffer 
row is an int 
column in an int 
dlen is an int 
opt is an int 
attr is an unsigned char 


This function retrieves an alpha-numeric string from the key- 
board. Variable key holds the terminating 16-bit key press 
value (Enter or Esc) and is used to take appropriate action on 
function return. Variable response points to a buffer that will 
contain the alpha-numeric string. Variables row and column 
set the entry string row and column location. Variable opt 
forces all caps (UPPER), all lowercase (LOWER) or upper- and 
lowercase (UPPER_LOWER). Variable attr is the entry field 
attribute. 


Function wind_display(...) 


Usage 


Remarks 


wind__display(w); 
where 
w is a pointer to a window structure 


This function displays a window after it has been previously 
initialized and removed. 


Function wind_remove(...) 


Usage 


Remarks 


wind__remove(wW) ; 
where 
W is a pointer to a window structure 


This function removes a displayed window from the screen 
and restore the original screen image under the window. 
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Function wind_attr(...) 


Usage 


Remarks 


wind __attr(w, 
row, 
col, 
length, 
attr); 


where 


W is a pointer to a window 
row is an int 

col is an int 

length is an int 

attr is an unsigned char 


This function allows you to control the attributes within the 
window. It will prove extremely useful for highlighting areas 
of text within the window. Variables row and col point to the 
start area of the attribute change. Variable |ength deter- 
mines the number of attributes to change and variable attr 
is the new window attribute. There is not any protection in 
this function that prevents window border overwrites. It is 
up to you to make sure that a window border is not over- 
written. 


Function wind_write(...) 


Usage 


Remarks 


wind __write(w, 
row, 
EO], 
length, 
STP hid: 
Stcr 


where 


W is a pointer to a window structure 
row is an int 

col is an int 

length is an int 

String points to a character buffer 
attr is an unsigned int 


This function writes a string to the window of a specified 
length at a designated row and column location. The string 
write attribute may also be designated. This function is 
identical to the scrn__write(...) function with the excep- 
tion that it receives a pointer to a window structure as the 
first parameter and uses the local coordinate system of the 
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window for an origin. There is not any protection in this 
function which prevents window border overwrites. It is 
up to you to make sure that a window border is not over- 
written. 


Function wind__char(...) 


Usage 


Remarks 


wind __char(w, 
row, 
ee. 
Mis 
SLEEP eh: 


where 


W is a pointer to a window structure 
row is an int 

col is an int 

attr is an unsigned char 


This function writes a character and attribute to a window at 
a specified row and column location using a designated 
attribute. This function is identical to the scrn__char(...) 
function with the exception that it receives a pointer to a 
window structure as the first parameter and uses the local 
coordinate system of the window for an origin. 


Function wind__repeat__char(...) 


Usage 


Remarks 


wind __repeat__char(W, 
row, 
col, 
len, 
eM, 
Ii ues hae Oe 


where 


W is a pointer to a window structure 
row is an int 

col is anint 

lenis an int 

ch is a char 

attr is an unsigned char 


This function writes a character to a window a specified 
number of times. There is no boundary checking in this 
function. It is up to you to make sure that there is not a 
situation where you will overwrite a window border. 
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Function wind__destroy(...) 


Usage 


Remarks 


wind__destroy(W); 

where 

W is a pointer to a window structure 

This function destroys a window structure by freeing up all 
memory that had been dynamically allocated during 


wind__init(...) function execution. Once this function has 
been invoked, the window structure must be reinitialized again. 


Function wind__read__char‘(...) 


Usage 


Remarks 


token= wind__read__char(W, row, col); 
where 

token is an int 

W is a pointer to a window structure 


row is an int 
col is an int 


This function returns the character and attribute at a spec- 
ified row and column location within a window. 


Function wind__cu__move(...) 


Usage 


Remarks 


wind._cu._move(W, row, col): 
where 


W is a pointer to a window structure 
row is an int 
col is an int 


This function moves the cursor to a specified row and column 
window location. 


Mapping a dialog box 
The process of creating a dialog box, although not fully automated, proves 
quite simple nonetheless. It consists of three simple steps: 


1. Use window functions to create your dialog box 


2. Use function ms__map__display(...) to discover the mouse 
positions related to dialog box function. (It’s easier to do than to 
describe!) 


3. Modify the code in PROG6-nnn. 


Figure 6-1 presents the source code listing to PROG6-1.C. This 
demonstration program shows how to map a dialog box so the mouse read 
locations can easily be calculated. 
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6-1 The source code listing to PROG6-1.C. 


PEP EEE TEIL IEEE ATT TPE EP PITT Ea iT 
ie 

if prog6-1.c 

// 

// Demonstrates: 

if Mapping a dialog box with the 

// mouse 

ff 

CORRES CES ETF ee eee eee eee ee eee eee, 


PEELE REII ELE ETI ITT i 
ry 

// Inelude files 

// 


#include <stdio.h> 
finclude <stdlib.h> 
include “tproto.h” 


PEEPLEGET ELE EP ET EET EL EAS PEPE ai eae 
// 

// function prototype 

ff 

void FILE_About_ALT_A(void); 


PEPE EE PT ETPAT TTT ALT EP aD ae eda ara iil dd 
// 

// global data 

THE mouse_installed= 0; 


PPELIS PIP EDP PEPE EE EL ETT EPP PEPE A TEE EES 


// 

// about dialog data 

// 

char dot[3]= tO ge te ah tes 


char FILE about_barlagj= { 199, 7196, 196, 196, 196, 
196, 196, 196, 196, 196, 
196, 196, 196, 196, 196. 
196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 
196, 196, 196, 295, dec 4: 


char FILE_about3[28 ]= _ Dranoel Software Inc 
char FILE _about4[28]= KX RKRKKKKXX KKK 

char FILE_about5[28]= " XXXXXKXKXXRRKKKKKXRK 
char FILE_about/[28]= =“ Crafting OS/2 Utilities 
char FILE_about8[28]= And Programmer Tools 
char FILE_about9[29]= 7 For Now and the Future 
char FILE about32[238l= = 

char FILE _ok[4]J= we Ades 


void FILE_About_ALT_A() 
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WIND *W1; 
WOHAR attri, attr2: 


int key; 
if 
// initialize attribute 
ff 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(BLUE, WHITE, OFF_INTENSITY, OFF_BLINK) ; 


ff 
// turn off the mouse 
// 


if(mouse_installed) { 
ms_off(); 
} 


ei 
// Initialize Window 
// 


Wl = wind_init(Wl, 
4, 
24, 
4+14, 
24429, 
eLuri. 
DD. DD, 
waar 6. 


// 
// write dialog window messages 
ji 


;, o, GOt, WhePatir); 

, 26, FILE_about3S2, Wi-satiri: 
, #8; FILE sboutSs, aver2): 

, 28, FILE abowsA, attrzZ): 

, 2o, FILE_abouts, attirz): 


wind_write(Wl, ] 
1 
1 
]; 
1 
1, 28, FILE_about32, W1->attr): 
0 
1 
1 
1 


wind_write(wl, 
wind_write(Wl, 
wind_write(Wl, 
wind_write(wl, 
wind_write(wl, 
wind_write(Wl, 
wind_write(Wl, 


; ol, FILE about bar, Wl=satir): 

, £20, FILE_apouty, attr2): 
wind_write(Wl, » 28, FILE 4bgute, airs: 
wind_write(Wl, 9, 1, 28, FILE_about9, attr2); 
wind_write(Wl, 10, 0, 30, FILE_about_bar, Wl->attr); 
wind_write(W1l, 11, 1, 28, FILE_about32, Wl->attr); 
wind_write(Wl, 12, 13, 4, FILE_ok, mk_attr_inverse(attr2)); 


CON DOH WPF © 


// 
// turn on the mouse 
// 


if(mouse_installed) { 
ms_on(); 
} 


// 
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6-1 


Continued. 


// map the display 
// 


ms_map_display(20, 0, F10); 


if 
// turn off the mouse 
if 


if(mouse_installed) { 
ms_off(): 
} 


// 
// remove window and display original screen information 
if 


wind_remove(Wl); 


ie 
// destroy the window structure 
ry 


wind_destroy(Wl) ; 


fy 
// turn on the mouse 
fy 


if(mouse_installed) { 
ms_on(); 
} 


iy 
PE ERLEL CITE ET CATT a ee 


SESE LEPT ELE L ET ERTS TES TPE I SESE EELS EE Le 


ry 
// 
// 


main() 


void main() 


{ 


fi 
// remove the text cursor 
// 


Cu_remove(); 

// 

// initialize the screen 
// 


scrn_init(); 


// 
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// clear the screen 
// 


scrn_clear(): 
‘ei 
// initialize the mouse 


// 


mouse_installed= ms_init(); 


rt 

// turn on the mouse 

eB 

if(mouse_installed) | 

ms_on(); 

// 

// call drop down window function 
// 


FILE About ALT At}: 


fy 

// turn off the mouse 

iif 

if(mouse_installed) { 

ms_off(); 

// 

// display the text cursor 
// 


cu_display(); 


// 
SPE PEL ES OLS SES ESS ESSP SLSR OSES SE eee r er 


6-1 Ends. 


An about... dialog box demo program 


Figure 6-2 presents the source code listing to PROG6-2.C. This program 
used the information gained by running PROG6-1.EXE to facilitate input 
from the keyboard and mouse. Spend time playing with PROG6-1.EXE 
and PROG6-2.EXE. Spend time looking at the source code presented in 
PROG6-1.C (FIG. 6-1) and PROG6-2.C (FIG. 6-2). Soon you'll be able to 
create dialog boxes within a few minutes. This dialog box will be used in 
PROG7-2.C (FIG. 7-2). 
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6-2 The source code listing to PROG6-2.C. 


PETE PET EEP EE ER LTT APES PAP PE PEP aD Pee? 
if 

ff PrOgG=2.€ 

ef 

// Demonstrates: 

// An About... dialog box 

if 

Peer esse cere e eee ese esse eee sees: 


SeCe ees rere eee ee eee eee hee eeaee: 
ff 

// include files 

if 


#Finclude <stdio.h> 
#include “tproto.h” 


ECs eee seer eee eee eee eee eeeesee: 
fy 

// global data 

int mouse_installed= 0; 


PEEL EEEP EPP PRESET EES PPP P ELLE TEE 


| 

// about dialog data 

// 

char dot[3]= Pe *. gaa ft Fs 


char FILE @bouTtT_barls0J= ¢ 198, 136, 196, 196, Lys, 
196, 196, 196, 196, 196, 
96, 136, 196, 198, 196, 
I96, 196, 196, i196, 196, 
feo, i296, 196, 196. 196, 
ib, 196, 196, 196, 162 1; 


char FILE_about3[28]= . Dranoel Software Inc 
char FILE _about4[ 28 J= 7 XXXKXKKXKXKKRKXKKK 

char FILE abouts(23l= : XXXXXXXKXXRKKKXKK 
char FILE_about/[28]= “Crafting OS/2 Utilities 
char FILE_about8[28]= . And Programmer Tools 
char FILE_about9[29]= . For Now and the Future 
char FILE_about32[28]= 2 

char FILE_ok[4]J= pany | Sika 


void FILE_About_ALT_A(void); 


void 

FILE_About_ALT_A() 

| 

WIND *W1; 

UGHAR a@ttrl, a@ttr2e, exit_tlag= 0: 
int key, X, Y; 


// 
// initialize attribute 
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// 


attrl= mk_attr( BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(BLUE, WHITE, OFF_INTENSITY, OFF_BLINK); 
// 
// turn off the mouse 
re 
if(mouse_installed) { 
ms_offt): 

{i 
// Initialize Window 
fi 
Wl = wind_init(Wl, 

4, 

24, 

A+14, 

24429, 

attrl, 

DD. DD, 

a 
// 
// write dialog window messages 
// 
wind_write(Wl, 0, 1, 3, dot, Wl->attr); 
wind_write(Wl, 1, 1, 28, FILE_about32, Wl->attr); 
wind_write(Wl, 2, 1, 28, FILE_about3, attr2); 
wind write(Wi, 3, 1, 26, FILE_abouta, attrz): 
wind_write(Wl, 4, 1, 28, FILE_about5, attr2); 
wind_write(Wl, 5, 1, 28, FILE_about32, Wl->attr); 
wind_write(Wl, 6, 0, 30, FILE_about_bar, Wl->attr); 
wind _write(Wl, 7#, 1, 26, FILE_abpout/, attrz): 
wind write(Wl, 8. 1, 28. FILE abouts, attr2): 
wind_write(Wl, 9, 1, 28, FILE_about9, attr2); 
wind_write(Wl, 10, 0, 30, FILE_about_bar, W1l->attr); 
wind_write(Wl, 11, 1, 28, FILE_about32, Wl->attr); 
wind_write(W1l, 12, 13, 4, FILE_ok, mk_attr_inverse(attr2)); 


ie 


// turn on the mouse 


// 


if(mouse_installed) 


ms_ont): 
} 


// 


// read the keyboard 


f? 
do { 


// check to see if key press 


key= kb_status(); 


An about... dialog box demo program 117 


6-2 Continued. 
// if no key press then read the mouse 


if(!key) { 
// check for button press 
key= ms_status(&x, &y); 
// if button press and mouse on the dot 


if((key == 1) && (x == 208) 8& (y == 32)) | 
key= ENTER; 
| 


// if button press and mouse on OK 


if((key == 1) && (xX d= 296) && (x <= 320) && Cy = 
key= ENTER; 


if(key == ENTER) { 
exit_flag= 1; 


} while(!exit_flag); 


i/ 
// turn off the mouse 
fy 


if(mouse_installed) { 
ns ott): 


// 
// remove window and display original screen information 
// 


wind _remove(Wl); 
// 
// destroy the window structure 
// 
wind_destroy(Wwl); 
‘al 
// turn on the mouse 
es 
if(mouse_installed) { 
ms_on(); 


// 
PEPER ET ERATE EPEAT EE AEE EP EPEAT 
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128) ) 


PRPEETL EE ELI TITER ELTA REPT TELAT Pad 
// 


// main() 
// 


void main() 

| 
es 
// remove the text cursor 
re 


Cu_remove(); 


// 
// initialize the screen 
ig 


sern_ini tt): 


mouse_installed= ms_init(); 


if 
// turn on the mouse 
as 


jf(mouse_installed) { 
ms_on(); 


FILE_About_ALT_A(); 


// 
// turn off the mouse 
// 


if(mouse_installed) { 
ms_off(): 


// 
// display the text cursor 
// 


cu_display(); 


if 
PSS OEE EEL EP EPL ELE EL ET EEL PETS I IATL ES EEE 


6-2 Ends. 


An alphanumeric data field 
entry dialog box demo program 


Figure 6-3 presents the source code listing to PROG6-3.C. This program 
presents the code to a very basic dialog box that gets a string from the 
keyboard. This dialog box will be used in PROG7-2.C (FIG. 7-2). 
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6-3 The source code listing to PROG6-3.C. 
PEPTEEL LEP EL TEREST TPL EP ELT ETE OT ay 
// 


(7? prodo-3.¢ 

// Demonstrates: 

// An alpha-numeric file name 

// entry dialog 

if 

PEPPPT ETL ERTEPPE LI PL ELE EELS PAGE EP EET 
CEP EP ERLE RIL PPI PP ET EL EET EE PEPE EPL Pali 
// 


// include files 
// 


#Finclude <stdio.h> 

fHinclude <stdlib.h> 

#FHinclude <malloc.h> 

#Hinclude <memory.h> 

fFinclude “tproto.h” 

char *#FILE_Open_ALT_O(int #key, int xentries); 
EETET TART TAL TTA PAT TT 
// 

// defines 

#define FILE _NAME_LIST_MAX 16 

FEET EL UIE TAL AAT ST AT Pa aT 
ii 

// global data 


int mouse_installed= 0; 


BPELTEPEL ERE PES ERE ETAL PTI ETE aE ea a 


ie 

// file_open dialog data 

ta 

char dott 3s]|= fo eek FT hs 

char FILE_open3[31]= “Enter File Name: ; 
char FILE_entry[31]= “Ts Entry Correct: C¥a CNY *; 
char FILE add 3iJj= “Add Another File: cya. [hy *s 


char FILE_open32[31]= 


char *xxFILE_Open_ALT_O(int *key_val, int xentries) 


WIND xW1; 

FILE aT DL; 

UCHAR @UtPris ff. GEtr2. SULrS: 
UCHAR exit_flag= 0, exit_flagl= 0; 
char  #*Cptr, #ecpirptr: 


int key; 
int x: 
int ye 
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int 
int 


file _count= 0; 

count= 0; 
fg 
// initialize array of pointers 
// 


cotrptr= (char **)calloc(FILE_NAME_LIST_MAX, sizeof(char «)); 


// 
// initialize the array of pointers to 0 
hi 


Forlcount= 0: count < FILE_NAME_LIST_MAK: count) { 
KL COLPDLE + (COUNT « SizeoT(char «))J)J= (char «)0; 


i) 
// initialize attribute 
i 


attrl= mk_attrtiBLlACk, WHITE, OFF_INTENSITY, QFPWBLINK): 


fi 
// turn off the mouse 
// 


if(mouse_installed) { 
ms_off(); 


{i 
// Initialize Window 
re 


Wl = wind_init(Wl, 
8, 
8, 
Atl, 
12, 
ator , 
DO D, 


‘ Open File For Print “); 


// 
// write dialog window messages 
// 


window itecWi., OU, 1, 3, dot, Wi-aettr): 
wind_write(W1l, 1, 1, 31, FILE_open32, Wl->attr); 
wind_write(Wl, 2, 1, 31, FILE_open3, W1l->attr); 


// 
// turn on the mouse 
// 


if(mouse_installed) { 
ms. ont): 
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6-3 Continued. 
// 


// read the keyboard 
He 
do { 
// jump her for new entry 
add_entry: 
// allocate memory for file name 
cpotr= (char *)malloc(40); 
// place pointer in array of pointers 
eLCDT POLY + (TTle_COUnT * sizeoTicnar «)))1— corr; 
// initialize file name buffer to 0 
memset(cptr, 0, 40); 
// jump here on entry abort 
abort_entry: 
// display mouse 
cuU_display¢): 
// if the mouse is installed turn it off 
if(mouse_installed) { 
MS oTTt): 
// get file name string from keyboard 
key= wind_kb_edit(Wl, 
cptr, 
a 
19, 
cee 
UPPER, 
Wi -2ETtr): 
// remove the mouse 
Cu_remove(); 
// if the key is ENTER process name 
if(key == ENTER) { 
// erase the file name from enter row 
wind_repeat_char(Wl, 2, 19, 34, * ’, Wl->attr); 


// copy the file name to the live below 


wind writelwWwi. 3. 2, 8 “File Entity: *, W1l-2atteri: 
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wind_write(Wl, 3, 14, 0, cptr, Wl->attr); 
// test to see if the file can be opened 
{ptr= Topentepir, “ry. 


// on no print error message and allow user to 
// enter another name 


1f(ltotry 4 


wind _write(wl 


W1, 
4, 
2, 
0, 
“EFPOr: File Not Found ~ ESC to continue”, 
mk attr¢ RED, WHITE, OFF_INTENSITY, OFF_BLINK)):; 
// wait for key press 


kb _read(); 


// erase error messages 


wind_repeat_char(Wl, 3, 2, 50, ‘ ’, Wl->attr); 
wind_repeat_char(Wl, 4, 2, 50, ‘ ’, Wl->attr); 
fclose(fptr); 


goto abort_entry; 


// close the file 
else { 
felose(toetr); 


// write the file entry string to the screen 


wind_write(Wl, 4, 1, 31, FILE_entry, Wl->attr); 


// abort file entry process when wind_kb_edit 
// return any key other than ENTER 


else { 
goto abort_file_entry_process; 
} 
// if the mouse is installed then turn it on 
i1f(mouse_installed) { 
ms_on(); 
} 
// initialize loop exit flag 
exit_flagl= 0; 


// loop for key or mouse response to file name 


do { 
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6-3. Continued. 
// no wait and get key press 


key= kb_status(); 
// if no key press and the mouse is installed 
if((!key) && (mouse_installed)) { 

// get the mouse status 

key= ms_status(&x, &y); 

// mouse press on Y 

if((key == 1) && (x == 264) && (y == 96)) { 


key= K_Y; 


// mouse press on N 


if((key == 1) && (x == 296) && (y == 96)) | 
key= K_N; 


// mouse press on close window button 


if((key == 1) && (x == 80) && (y == 64)) | 
key= ESCAPE; 


// ENTER and Y evoke same action 


if(key == ENTER) { 
key= K_Y; 


// ESCAPE aborts process 


if(key == ESCAPE) { 
goto abort_file_entry_process; 


// allow for either lower case or upper case entry 


TTC Rey == Ky) || Chey —— Kya) 3 
key= K_Y; 

TPtCkey em KIND. || Chey <= Kx? 4 
key= K_N; 

jFCC kay = Ko || (key = KNIT 4 
exit_flagl= 1; 


// loop until exit flag is set 


} while(lexit_flagl); 
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// if the mouse is installed turn it off 
if(mouse_installed) { 

me ort): 

} 


// erase screen messages 


wind_write(Wl, 2, 19, 31, FILE_open32, W1l->attr); 
wind_write(Wl, 3, 1, 31, FILE_open32, Wl->attr); 


// abort process on N 
if(key == K_N) { 
wind_write(W1l, 3, 1, 31, FILE_open32, W1l->attr); 
wind_write(Wl, 4, 1, 31, FILE_open32, Wl->attr); 
goto abort_entry; 
// file add process 
Save_or_not: 
wind_write(Wl, 4, 1, 31, FILE_add, Wl->attr); 
// if the mouse is installed then turn it on 
if(mouse_installed) { 
ms_on(); 
// initialize the exit flag 
exit_flagl= 0; 
do { 
// no wait and get key press 
key= kb _status(); 
// if no key press and the mouse is installed 
if((!key) && (mouse_installed)) { 
// get the mouse status 
key= ms_status(&x, &y); 
// mouse press on Y 
if((key == 1) && (x == 264) && (y == 96)) { 
key= K_Y; 
// mouse press on N 
if((key == 1) && (x == 296) && (y == 96)) { 


key= K_N; 
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6-3. Continued. 
// mouse press on close window button 


if((key == 1) && (x == 80) && (y == 64)) { 
key= ESCAPE; 
| 


// ENTER and Y evoke same action 


if(key == ENTER) { 
key= K_Y; 


// ESCAPE aborts process 


i1f( key == ESCAPE) | 
goto abort_file_entry_process; 


// allow for either lower case or upper case entry 


ltt ikey == KY) || (key == Kuy)) I 
key= K_Y; 


if((key == K_N) || (key == K_n)) | 
key= K_N; 


1t@itkey == KY) [| (key — KN) | 
exit_flagl= 1; 


// \|oop until exit flag is set 
} while(!lexit_flagl); 
// if the mouse is installed turn it off 


if(mouse_installed) { 
ms_off(); 


// on yes process entry and adjust file counter 


if( key == K_Y) { 
if(file_count == 14) { 

wind_write(Wwl, 
4, 
an 
Oy 
“File Limit Reached - ESC to continue”, 
mk attr(RED, WHITE, OFF_INTENSITY, OFF _BLINK)): 

// wait for key press 


kb _read(); 


// erase error messages 
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wind_repeat_char(wWi, 3, 2, 50, ° *, Wl-dattry): 
wind_repeat_char(Wl, 4, 2, 50, ‘ ’, Wl->attr); 


goto save_or_not; 


wind_write(Wl, 3, 1, 31, FILE_open32, Wl->attr); 
wind_write(Wl, 4, 1, 31, FILE_open32, Wl->attr); 
ri le_count++: 

goto add_entry; 


// if the mouse is installed turn it on 
if(mouse_installed) { 
ms_on(); 


// initialize exit flag 


exit_flag= 1; 


} while(lexit_flag); 
// 


// jump here on abort of the file entry process 
// 


abort_file_entry_process: 


xentries= file _count + 1; 


ff 
// return key_val to calling function 
// 


*xkey val= key; 


ij 
ff turn off the mouse 
// 


if(mouse_installed) { 
Os. oTT ty): 
fi 
// remove window and display original screen information 
iy 
wind_remove(Wl); 
pe 
// destroy the window structure 
// 


wind_destroy(wl) ; 
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6-3 Continued. 


ef 
// turn on the mouse 
// 


if(mouse_installed) { 
ms_on(); 
} 


return cpoLrotr: 


iy 
PPPEPLEPTLEP ELE EPPA ETA EET a 


void main() 

{ 

char ««xcptrptr; 

int ret_val, count; 
int entries; 

char «blk; 


Ve 
// remove the text cursor 
tf 


Cu_remove(); 


bg 
// initialize the screen 
// 


scrn_init(): 


mouse_installed= ms_init(); 


// 
// turn on the mouse 
fe 


if(mouse_installed) { 
His ont 1: 
} 


cpotrptr= FILE_Open_ALT_O(&ret_val, &entries); 
// 
// turn off the mouse 
if 
if(mouse_installed) { 
ms_oTT{): 
} 


ii 
// display the text cursor 
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// 
cu_display(); 


if 
// print the cptrptr entered 
// 


for(count= 0; count < entries; count++) { 
if(*x(cptrptr + (count « sizeof(char *))) != 0) { 
prInNtrC™ \nrile Names: 25”, eCcptrptr + (count * sizeot(char #*#)))); 
blk= «x(cptrptr + (count * sizeof(char *))); 
free(bIlk); 


free((void *)cptrptr); 


// 
PEPE PP EPP EPEAT AT PA ETP PPA EAT PPE ETT 


6-3 Ends. 


A multiple item check dialog box demo program 


Figure 6-4 presents the source code to a multiple item check dialog box 
program. Look at the source code and see how easy it will be to modify this 
dialog box to suit your own needs. This dialog box will be used in PROG7- 
2 (BIG. 7-9). 


6-4 The source code listing to PROG6-4.C. 
ERLERE eee ee cise eee eee ee eee eee eae: 


// Demonstrates: 
// Mapping a check box style 
fy dialog box 


iy 
PEEP EERE LEP PEEP ELT PLE EPPS EEE PP PPT 


PEPE PEGLEL SIL EL TAG EP EL EAE TET Le Te TE a7 e 
// 

// include files 

// 


4Ainclude <malloc.h> 
4#Hinclude <stdio.h> 


f#include “tproto.h” 
PEPPPPPPET PILE REIL ELE PPT Pag eee 


iif 
// global data 
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6-4 Continued. 
int mouse_installed= 0; 
PUPPET ITER T PAT ET ELA PEP PEAT hee EP EP ETT i 


// 
// about dialog data 


ii 
char dot[3]= f WE 25a, “2” Fs 
char OPTIONS set_bar[34]J= { 199, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196 
196, 196, 196, 196, 182 } 
char OPTIONS setz[32]= “ Options On Of 
char OPTIONS_set4[32]= “ Compress (136 dpi) Cat 
char OPTIONS set5[32]= “ Double Strike kt 
char OPTIONS set6[32]= “ Header (File & Page) LT Jf 
char OPTIONS set8L32]= “Left Column Offset LOO} [We } 
char OPTIONS set9[32]= . In Blank Spaces Lag Leeds 
char OPTIONS _setl0[32]= “ Leu Leads 
char OPTIONS setl2[32J= ‘ [ Ok J [ Cancel ] 
typedef struct PrintOpt { 
UCHAR compress; 
UCHAR double_strike; 
UCHAR header; 
UCHAR left_offset; 
- 
int OPTIONS Set_ALT_S(struct PrintOpt #PQ1) 
WIND  x«W1; 
UCHAR attrl, attr2, compress, double_strike, change= 0; 


UCHAR header, left_offset, exit_flag= 0; 
int x, ¥, Key: 


cs 

// transfer PrintOpt structure values to 
// local variables 

// 


comoress= POl->compress: 
double_strike= P0O1->double_strike; 
header= POl->header; 

left_offset= PO1->left_offset; 


// 
// initialize attribute 
fy 


r. -4 
i: 
| #s 
| 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK) ; 


attr2= mk_attr(RED, WHITE, OFF_INTENSITY, 


UPPOELINK? 
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if 
// turn off the mouse 
// 


if(mouse_installed) { 
mS..oTT ( ): 


// 
// Initialize Window 
// 


Wl = wind_init(wl, 
4, 
20, 
4+13, 
20433, 
attrl, 
ya aa ae 


* Print Options. “); 


// 
// write dialog window messages 
// 


wind_write(Wl, 0, 1, 3, dot, Wl->attr); 
wind_write(Wl, 2, 1, 32, OPTIONS set2, Wl->attr); 
wind_repeat_char(Wl, 3, 7, 7, 196, Wl->attr); 
wind_repeat_char(Wl, 3, 25, 3, 196, Wl->attr); 
wind_repeat_char(Wl, 3, 29, 3, 196, Wl->attr); 
wind_write(Wl, 4, 1, 32, OPTIONS set4, Wl->attr):; 
wind @hartWl, 4. 2, ‘C*, attr2?: 

wind_write(Wl, 5, 1, 32, OPTIONS set5, Wl->attr); 
wifld chariwl,. 5, 2, *D". attr2Zs: 

wind_write(Wl, 6, 1, 32, OPTIONS set6, Wl->attr); 
windchartWl, G6, 2, “H°, attr2): 

wind_write(Wl, 7, 1, 32, OPTIONS set8, Wl->attr); 
wind _char(Wl, 7, 2, *L’, attr2); 

wind_write(Wl, , 32, OPTIONS set9, Wl->attr); 
wind_write(Wl, 9, 1, 32, OPTIONS setl0O, Wl->attr); 
wind_write(Wl, ll, 1, 32, OPTIONS setl2, Wl->attr); 


WW CO 
fo 


// 
// display current setup 
// 


wind _¢har(Wwl, Ll, 6, °*O*. attrZ): 
wind cnar(Wil, 21, 22, “*C*, attrz): 


if(compress) { 
wind_char(wl, 4, 26, °X*, eattr2); 


else | 
wind_char(Wl, 4, 30, ‘X’, attr2): 


iftdouble_ strike) { 
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6-4 Continued. 


wind cnear(Wi, &, 26, “A°. @ttr2): 
} 


else { 
wind chartwl, 5, 30, *X*, attr2): 
} 


if(header) { 
wind _char(Wl, 6, 26, ‘*X’, attr2): 


else { 
wind _char(Wl, &o, 30, “X*. attrz): 
} 


Switch(left_offset) { 


case OO: 
winrtd_attr(wWi, #, 24, 2. attr2): 
break; 
case 10: 
winid_attr(wl, @, 24, 2, attr2): 
break; 
case 20: 
wind_attr(wl, 9, 24, 2, attr2); 
break; 
case 05: 
wind _attr(Wwl, #, 29, 2, attr2): 
break; 
case 15: 
wind_attr(Wl, 8, 29, 2, attr2); 
break; 
case 25: 
wind_attr(Wl, 9, 29, 2, attr2); 
break; 
Qi 
// turn on the mouse 
fi 
if(mouse_installed) { 
ms_on(); 
ff 
// process keyboard and mouse input 
// 
exit_flag= 0; 
do { 
if(change) | 
change= 0; 


if(mouse_installed) { 
ms_orTt(): 
} 
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1f(compress) | 
wind_char(Wl, 4, 26, ‘X’, attr2); 


wind _char(Wi1, 4, 30, ° *, Wi--sattri: 
else { 
wind _char(Wl, 4, 26, ‘ ’, Wl->attr); 


wind _char(Wl, 4, 30, ‘X’, attr2); 


if(double_ strike) { 
wind _chartwi., 5, 26, “XR, attr2); 


wind _char(W1, 5, 30, ‘ ’, Wl->attr); 
else { 
wind thartWil, 5, 26, ° *, Wiesattr): 


wifid_char(wWi, 5&5, 30, °X*. attr2Z): 
} 


jf(header) { 


wind_char(Wl, 6, 26, ‘X’, attr2); 
wind_char(Wl, 6, 30, ° °’, Wl->attr); 
else { 
wind char(Wl, 6, 26, ° °, Wi->attr): 
wind_char(Wl; 6, 30, ‘X’, attr2); 
wifid_attr(wWl, 7, #24, 2. Wi->attri: 
wind attr(Wi. 8, 24, 2, Wi->attr): 
wind_attr(Wl, 9, 24, 2, Wl->attr); 
wind attr(wi, *¢, 29, 2, Wl-?>attri: 
wind_attr(Wl, 8, 29, 2, Wl->attr); 
wind_attr(Wl, 9, 29, 2, Wl->attr); 
Switch(left_offset) {| 
case O00: 
wind _attirtwl, 7, 24, 2, attr2): 
break; 
case 10: 
wind_attr(Wl, 8, 24, 2, attr2); 
break; 
case 20: 
wind_attr(Wl, 9, 24, 2, attr2); 
break; 
case O65: 
wind attri Wl. 7, 29, 2, attire); 
break; 
case 15: 
wind_attr(wl, 8, 29, 2, attr2); 
break; 
case 25: 
windacttriwl. 9, 29, 2, attr2): 
break; 


if(mouse_installed) { 
ms_on(); 


key= kb_status(); 
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if((!key) && (mouse_installed)) { 
key= ms_status(&x, &y); 


if((key == 1) && (x >= 208) && (x <= 248) && (y == 120)) { 


key= ENTER; 
iT((tkey —— 1) 88 (x d= 320) && (xX <= 392) && Cy — 120)) || 
(ix == 176) && Cy =—— 3273) | 
key= ESCAPE; 


// Compress off to on 


if((key == 1) && (x == 368) && (y == 64)) { 
if(!compress) { 
key= ALT_C; 


// Compress on to off 


if((key == 1) && (x == 400) && (y == 64)) { 
if(compress) { 
key= ALT_C; 


// Double strike off to on 


if((key == 1) & (x == 368) & (y == 72)) | 
if(!double_strike) { 
key= ALT_D; 


// Double strike on to off 


if((key == 1) && (x == 400) && (y == 72)) { 
if(double_strike) { 
key= ALT_D; 


// header off to on 


if((key == 1) && (x == 368) && (y == 80)) { 
if(!header) { 
key= ALT_H; 


// header on to off 
if((key == 1) && (x == 400) && (y == 80)) { 
if(header) { 


key= ALT_H; 
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if((key == 1) && (x >= 352) && (x <= 360) && (y == 88)) { 
left_offset= 00; 
change= l; 
} 

if((key == 1) && (x >= 392) && (x <= 400) && (y == 88)) | 
left_offset= 05; 


change= 1; 

if((key == 1) && (x >= 352) && (x <= 360) && (y == 96)) | 
left_offset= 10; 
change= 1; 

if((key == 1) && (x >= 392) && (x <= 400) && (y == 96)) | 
left_offset= 15; 
change= 1; 

if( (key == 1) && (x >= 352) && (x <= 360) && (y == 104)) | 
left_offset= 20; 
change= 1; 

if( (key == 1) && (x >= 392) && (x <= 400) && (y == 104)) { 
left_offset= 25; 
change= 1; 


if(key == ALT_C) { 
if(!compress) { 
compress= 1; 


else { 
compress= 0; 
change= 1; 


if(key == ALT_D) { 
if(!double_strike) { 
double _strike= 1; 
} 


else { 
double _strike= 0; 
} 

change= 1; 


if( key == ALT_L) { 
if(left_offset == 25) { 
left_offset= 0; 


else { 
left_offsett= 5; 
} 

change= 1; 

} 


if(key == ALT_H) { 
if(!theader) { 
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Continued. 
header= 1; 
} 
else { 
header= 0; 
} 
change= 1; 
} 
if((key == ESCAPE) || (key == ENTER)){ 
exit_flag= 1; 
} 
} while(lexit_flag); 
fi 


// if key is equal to ENTER then 
// transfer the data from the 

// local shadow of the 

// PrintOpt structure to the 

// parameter PrintOpt pointer’s 
// structure 

ff 


if( key == ENTER) { 
POl->compress= compress; 
PO1->double_strike= double_strike; 
PO1->header= header; 
PO1->left_offset= left_offset: 


// 
// turn off the mouse 
fe 


if(mouse_installed) { 
ms_off(): 


ft 
// remove window and display original screen information 
ie 


wind_remove(Wl); 


if 
// destroy the window structure 
I} 


wind_destroy(wl); 


// 
// turn on the mouse 
fy 
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if(mouse_installed) { 
ms_on(); 


return key; 


if 
PITTLELTIITTTTTTTTTTT TITS TTT TTT 


PEELS PIII P EPP P ELT TTA PP aaa aoe hifi dd 
ei 

// main() 

(ff 


void main() 
struct Printupt POL: 


int key; 
ce 
// initialize print options members 
es 


POl.compress= 0 
PO1.double_strike= 0; 
POl.header= 0; 
POl.left_offset= 0 


// 
// 
// remove the text cursor 
// 


cu_save_loc(); 
Cu_remove(); 


ey 
// initialize the screen 
// 


scrn_initt): 

// 

// initialize the mouse 

if 

mouse_installed= ms_init(); 
// 

// turn on the mouse 

fi 

if(mouse_installed) { 


ms_on(); 


key= OPTIONS Set_ALT_S(&POQ1); 
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6-4 Continued. 


if 

// turn off the mouse 

// 

if(mouse_installed) { 

ms_off(); 

if 

f/f Q1solay the text cursor 
// 


cu_display{); 


// 
// report the status of the 
// Print Option dialog box 
ff 


cu rest.lac(): 


if(key == ESCAPE) { 
printf(“\nESCAPE returned\n”); 


else { 

printf(“\nENTER returned\n”) ; 
printf(“POl.compress= 4d\n”, POl.compress); 
printt(“POl1.double_strike= 4d\n”, PO1l.double_strike); 
printf(“POl.header= %4d\n”, POl.header); 
printf(“POl.left_offset= 4d\n”, POl.left_offset); 


i 
Bese SSE CROES SS eeC SPEC RESP eT e ere ee eee: 


6-4 Ends. 


A string list dialog box 


Figure 6-5 presents the source code listing to PROG6-5.C. This program 
shows how to list a variety of file names to a dialog box. This dialog box will 
be used in PROG7-2.C (FIG. 7-2}. 


6-5 The source code listing to PROGE-5.C. 
ET EE ERATE EAP PITA EAT TPE E TP ae el 


// 

/f progo-5.c 

// 

// Demonstrates: 

// 

i? Display file names from char xx 
// list 

// 


PELEPPEP EEE RE EEE IPE LEIP LAPS aa 
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PLETE PEI PII EEE PETE PLA PIE ETT OF ETT 
fi 

// include files 

fy 


#include <stdio.h> 
#include “tproto.h” 


Pegeccecerreer es eere seer rere rer seee, 
// 
// global data 


int mouse_installed= 0; 


LEP EP TEEPE PTTL EE ET ETE EE EES Ea TPE Ee 
fd 

// display file names 

// 


WIND *FILE_display_files(char «files, int entries) 
| 

WIND  «W1; 

UCHAR attrl; 

se RS key, counter; 


// 
// initialize attribute 
// 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 


Ve 
// Initialize Window 
Fy 
Wl = wind_init(Wl, 
ae 
AQ, 
aa 
Vo. 
aturl, 
D_D_D_D, 
*“ Fil@ Print List “2: 
if 
// write dialog window messages 
as 


wind_write(Wl, 2, 2, 9, “File Name”, Wl->attr); 
wind_repeat_char(Wl, 3, 2, 9, 196, Wl->attr); 
wind_write(Wl, 2, 26, 12, “Print Status”, Wl->attr): 
wind repeat _char(Wl, 3, 26, 12, 196, Wl->atir): 


for(counter= 0; counter < entries; countert++) {| 
wind_write(Wl, 4 + counter, 2, 0, (char *)files[counter], Wl->attr): 
wind_write(Wl, 4 + counter, 26, 0, “Waiting...”, Wl->attr); 
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return(Wl); 
} 


‘a 
POTEET IEEE EE EAT AL TEEPE TAT PPE aE 


PREP ALIS IGP EP EL IPI IP eee ee 
// 

// main() 

// 


void main() 
| 


WIND «Wptr; 
char *fileLl5] = { “PROG6-1.C”, 

*“PROGG-27.6”, 
“PROG6-3.C”, 
“PROG6-4.C”, 
“PROGG<5.0" , 
“PROG2-1.C”, 
“PROG2-2.C”", 
“PROG2-3.C”, 
*“PROG?-1.€”, 
“PROG/-2.C”, 
“ne Mee o MKFIG2-3. BOC”, 
“MAKEFILE”, 
“MENU.MAK” , 
“TPROTO.VH” 5 
“TSTRUCT.H” } 

// 

// remove the text cursor 

// 

Cu_remove(); 

// 

// initialize the screen 

ei 


scrainttt i): 


mouse_installed= ms_init(); 


Wotr= FILE_display_files(file, 15); 
// 

// wait for key press 

// 

kb_read(); 

fd 

// remove the window 

// 


wind_remove(Wptr) ; 
wind_destroy(Wptr); 
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// 
// turn off the mouse 
// 


if(mouse_installed) { 
ms OTT). 
} 


ff 
// display the text cursor 
// 


cu_display(); 


iy 
Seeitiet cee reerresereiorsoreresere ss: 


6-5 Ends. 


A file name and file size dialog box 


Figure 6-6 presents the source code listing to PROG6-6.C. This program 
displays a dialog box that presents a filename and shows the file size 
counting from 1 to the file length. This dialog box will be used in PROG7- 
2.C (FIG. 7-2). 


6-6 The source code listing to PROG6-6.C. 


PETE TEEGATE PETG TRADE DP Fs i bl 
// 

ff DFOCG-6,¢ 

// 

// Demonstrates: 

ff Print file name window 


// 
SRLEPERSCESSSL SRE TLCS SPREE SRP CL ere ei 


PEELE PLEE EET EPAPER EPP EPG TPE PTs 
// 

// include files 

// 


f#Hinclude <stdio.h> 
HHinclude <stdlib.h> 
fFinclude “tproto.h” 


ESSCLCCES PC ERPOLTSOL ELEC ESS er ree ee: 
. global data 

pues mouse_installed= 0; 

CRERGSCC SOC eC Cee eeerietreeeeeeerrines, 
: print display of file being 


// printed 
re 
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WIND «PRINT Start_ALT_S(char «file_name) 
WIND *W1; 

UCHAR attrl, attr2, exit_flad: 

LAE key, X, Y;3 


if 
// initialize attribute 
// 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, 
attrz= WK_attri BLUE, WHITE, OUFF_INTENSITY, 


Jf 
// Initialize Window 
Jj 
Wl = wind_init(wl, 
4, 
QO, 
A+7 , 
39, 
attri, 
DE ee ele 


* Pring Files. “); 


ii 

// write dialog window messages 
ff 
Wind_write(Wl, 2, 1, 0, “ File Name: 
wind_write(Wl, 2, 
wind_write(Wl, 3, 1, 0, “ File Size: 
wind_write(Wl, 4 


return(Wl); 


cf 
PISEPLIEEL UTE LITE TERE IAP LAT IE Pe aaa 


PLEEPEELA ELE EE PRET PERT IPE e PP Peep Padi 
ff 

// main() 

// 


void main() 

WIND «Wptr; 

char buffer[20]; 
Int counter; 
UCHAR atirl, attire; 


// 
// make attribute 
// 


e  BLEIZ) : 
12, 0, file_name, attr2); 

w* Gture.: 
1, 0, “ Number of Chars Printed: 


OFF_BLINK); 
OFF_BLINK); 


eg AEP 
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dLEPL= MmkKUaTTPCRED, WHITE, OFFJINTENSITY, OFF_BLINK): 
abtrz= mk attri Blue, WHITE, OFFLINTENSITY, OFF_BLINK): 


if 
// remove the text cursor 
// 


Cu_remove(); 


ii 
// initialize the screen 
fs 


scrmminitt): 
Wotr= PRINT _Start_ALT_S(“PROG6-6.C"): 
wind_write(Wptr, 3, 13, 0, (char *)itoa(25000, buffer, 10), attrl); 


for(counter= 0; counter < 25000; counter++) { 
wind_write(Wptr, 4, 27, 0, (char *)itoa(counter + 1, buffer, 10), 
acuri 2: 


wind_write(Wptr, 5, 1, 0, “ File Print Job Complete “, attr2); 


kb read(); 


wind_remove(Wptr) ; 
wind_destroy(Wptr); 


// 
// display the text cursor 
// 


cu_display(): 


fi 
SE CLECESCSOPSESOES OSC SEES SS SCS E eee eer | 


66 Ends. 


A Lotus grid style menu demonstration program 


Figure 6-7 presents the source code listing to PROG6-7.C. This program 
demonstrates how to create a scroll bar menu along with a grid style 
menu. Code from this program may be used to fashion menus in your own 
programs. All you need to do is change the number of menu items and the 
names of the menu items. 


6-7 The source code listing to PROG6-7.C. 


/ sie 3k 2 3K fe 3 2 2K ok ak 2k 2 ok ok ok ok ok ak ok ake ake ok / 


/# progoe-7.¢c x / 
/* x / 
/x Menu Demonstration x/ 
/* ‘ / 
/ x OS/2 & DOS € x / 
/* Too] kit se / 
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i xe / 
/ x x / 
/x Dranoel Software x/ 
/ x Ce) 1993 xe / 
/ x xe / 


/ se RR oR aR Ro RR RR oe a  / 


/ sie ie oie 2 oi 2 2 2 a 2k 2 ake ok ak ake ok ok / 
/x Include Files x«/ 
/ sie 2k 3k oe oie 2 2 ok ok ok ook ak ok ok ok ok / 


#Hinclude <stdio.h> 


/ si oi oi 3 2 ok oe ae ae ak ok ok i ok ok ok ak ake ok ok ak ok ok / 
/x C function prototypes «/ 
/ se oi a ok sk 2k ok 2 ok ok ak ok ok ok ok ok ok oo a a K  / 


#include “tproto.h” 


[ste oie oie ee 3 2g 2G fe 2g 2G ag 2g He a 2g og ae 2g 2g fe ake oe ae ake oie fg ake ok aks / 
/x C function prototypes x / 
/x Routines used by this demo x/ 
/ se sie fe oe aie e246 26 oe a 2K 2G oe a 2g 2G 2 oe ae oie oie oe ae akc ok oie ak ake ake ok / 


int tgrid(void); /x display grid type window 2 / 
void infol(void); /x Simple pop-up information window x/ 
tit tTiotus(void): /x display lotus style window x / 
int main(void); /* program main ef 
void bleep(void); /x dummy function x / 


// she se eo 628 a IG a Ga G2 EA Ea Ea EH a 2 a A EH ago ago ae oi ae oe ok oe ok ok ake ok ake / 
/x Make variables that must retain their 2 / 
/*x value after the function exits, global x/ 
// sigs a HG aS 2 aR AC a ag Ga Go ag 2 HG 2 HE 2A SH G2 aC HA a a HC a oe oe oe ae oe ok ae ak ae / 


int lotus_flag=0; 

int lotus_item=0; 

int grid_item=0; /x item selected value  / 
int grid_flag=0; 


| RRR ORR kk kkk / 
/x Structure Declarationsx/ 
| HK OR ORR kk kk ok ok / 


/x Pointers to Window Structures «/ 


WIND «FIRST; 
WIND «GRID; 

WIND «INFORM; 
WIND «LOTUS; 


/ seo ok oe ok oo a ok ok ak ok ok ak a a a / 
/x Window Messagesx/ 
/ si ok ok ok 2k ok ok ok ok ok ok ok ok ak ake ak a a / 


/x Messages for FIRST Window x/ 
char title[29] = “Dranoel OS/2 & DOS C Toolkit”; 


unsigned char i_bar[31] = { 195,196,195,196,196,196,196,196,196, 
196,196,196,196,196,196,196,196,196, 
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196,196,196,196,196,196,196,196,196, 
196,196,196,180 }; 

“ Lotus Style Menu 

“ Grid Style Menu 

‘ Some Historical Information “; 

* Quit OS/2 & DOS Demo 


char iteml[29] 
char item2[29] 
char item3[29] 
char item5[29] 


/*x Messages for LOTUS Window x/ 


char menull4/7 ] = “ Mean Mode Median Range Standard Deviation “; 
char mess1[4/7] = “ Mean is the Average score of the distribution “; 
char mess2[47] “ Mode is the most frequent score i 
char mess3[4/7] “ Median is the middle score of sample 

char mess4[47] = “ Range is the distance from highest to lowest 

char mess5[47] ‘ Standard dev. is avg. distance from mean 


/*x |ot_map holds mess column offset & length x/ 


int lot_map[5]{2] = { 
1,6, 


/x messages for GRID window - holds row & column x/ 


char gmenu[21] SELECT A NUMBER 


char griallZzii = LI 2 3 
char grid2[21] = 4 5 6 
char grid3[21] = “ 7 8 9 
enar grid4[2l1] — * Press ENTER to Exit *; 


/* grid_map row,column for start of inverse item x/ 


int grid_mapl9](2] = { 
Fs 
AD. 
wid. 


oom & BBW W W 
—_ 
> 


/x infol window data x/ 


char speed1[28] = “ OS/2 & DOS C Library “3 
unsigned char speedzZ[30] = { 199,196,196,196,196,196,196,196,196, 
196,196,196,196,196,196,196,196,196, 
196,196,196,196,196,196,196,196,196, 

196,196,182 }: 

Dranoel Software Inc 

RRKRKRM 

XXKKKKRXKKRXKKKK RRR ARKRKK 


Press ANY KEY to exit. 


char speed3L28] 
char speed4[28] 
char speed5[28] 
char speed6[28] 
char speed/[28] 
char speed8[28] 


| | | | 
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/ sie sie sie 2 2 ok 2k 2 oe oe ae ok ok ok ak ok ok ok ake ake // 
/x global variablesx/ 
/ eo ok kok kk / 


int xinverse; /x attribute for inverse % / 
int hl_tense; /x highlight bar intensity x / 


[sie He ae 26 ae 3 346 2s ae 26 2 a 2K oe afc 2G ee 2c 2 ae 2k 2g fe ofc oc ak akc ok ofc ake ak oe ake ok / 


/ x x / 
/x Lotus Style Window x / 
/ x i / 
/x Receives: nothing x / 
/x Returns: item selection number x/ 
/ x * / 
/x Displays Lotus style window x / 
/x with attendant cursor, high- x / 
/*x light and item description  / 
/*x routines. 7 / 
/ *  / 
// se oe ae a a 31 2 a ok oe a ak ee ak ok ok ok ok ak ok oe eo ok ok ak ok ok ok ok ok ok ak ok / 
int 

tlotus() 

| 

int key; /* Scan and char value xe / 


int exit; /«* val for loop cond chk x/ 
int exp_a; /* item explanation attr x/ 


ste sie ae 2 a 6 a aS HG a 2A a EA a HG AG a a G24 a Go a Eo ag a oC of ae 2 ae ag oC ae a iG 2 ae go a go fe go oe ae oe oe ae ofc ake ate ake / 
/x Initialize lotus menu window structure and display window x«/ 
[Hee a EG a a EAE 3 AG a A AEG 2 a AE 2 ag a aC ae ae 9 He ogo a ae ae a aK oe oe ae ae ok of oe ae of eo ae oe ok oe ok ke ok ok ake ak / 
/x Set lotus explanation Attr - Fore,Back,Intensity,Blink x/ 
exp_a = mk_attr(MAGENTA,BLUE,ON_INTENSITY,OFF_BLINK) ; 


/x call window initialization routines only once x/ 


if(!lotus_flag) 
| 


/*x ensure window startup bypassed next window call x/ 
lotus_flag=1; 

/x Allocate memory and return pointer to structure x/ 
LOTUS = setWind(LOTUS,6,20,9,68); 

/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(LOTUS,mk_attr(WHITE,BLUE,ON_INTENSITY,OFF_BLINK) ); 
/x Set Window Border - top, bot, left, right #/ 
setBord( LOTUS, S_$_5_ 5): 

/x Set the top and bottom title - 0 set no bottom title x/ 


setTitle(LOTUS,” Lotus Style Window “); 
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/* Display window x/ 


StrtWind( LOTUS); 


else 
wind_display(LOTUS); 


/x set loop condition x/ 

exit=aFALSE; 

do 
/x Write title bar - erasing old inverse” x/ 
wind_write(LOTUS,1,1,47,menul,LOTUS->attr); 


/x Inverse proper menu item using lot_mapLJL] x/ 


wind_attr(LOTUS,1,lot_map[lotus_item][0], 
lot_mapLlotus_item]J[1], 


hl_tense):; 
Switch(lotus_item) /*x print item explanation x/ 
case 0: 
wind_write(LOTUS,2,1,4/7,messl,exp_a): 
break; 
case l: 
wind_write(LOTUS,2,1,4/,mess2,exp_a); 
break; 
case 2: 
wind_write(LOTUS,2,1,47,mess3,exp_a); 
break; 
case 3: 
wind_write(LOTUS,2,1,47,mess4,exp_a): 
break; 
case 4: 
wind_write(LOTUS,2,1,47,mess5,exp_a); 
break; 
key = kb_read(); 
Switch(key ) 
| 
case RIGHT_ARROW: fe AD FIGhL. itent */ 
case RIGHT_ARROW_K: /x At right item?  / 
if(lotus_item==4 ) /x Yes? se / 
lotus_item=0; /x set left item sie / 
else /x Else sie / 
lotus_item++; /x move rt 1 item xe / 
break; 
case LEFT ARROW: /x At left item? x / 
case LEFT_ARROW_K: /x At left item? x / 
if(lotus_item==0 ) /x Yes? x / 
lotus_item=4; /x set right item. x/ 
else /x Else xe / 
lotus.1tem--: /x move lft 1 item x/ 
break; 
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6-7 Continued. 
case ENTER: 


exit=alRUE:; 
break: 
} while(!lexit); 
/x Remove Lotus Window x/ 
wind_remove(LOTUS); 


/x return selected item number x/ 


return(lotus_item); 


[soe 2 2 oR 2 9 a a a aK a a a a oR a a aR oR oR ok ok ok ok ek / 


/ x % / 
/x Grid Style Window * / 
/ x * / 
/x Receives: nothing  / 
/x Returns: item selection number x/ 
/ x  / 
/x Displays Grid style window x / 
/x with attendant cursor & high- x/ 
/x light description routines. a / 
/* * / 


/ IGG ok ok kkk ok ok ok ok ok ok ok ok ok ok / 


| RRR Rk kkk / 
/x Make variables that must retain theirx/ 
/x value after the function exits globalx/ 
// se a a a ae oe a6 2 ak 2 9K 9k 2k ok 2k ok 3k 2c 2 2 oe 2 oe ok 2 2 oe oo ae a oo oo ok ok ok ak ak ake ok / 
THe 

tgrid() 

| 

int key; /*x Scan and char value  / 

int exit; /x val for loop cond chk #/ 


/ ae oie ae 2 2 2 EH a ae ae 2 a a HG a a a ae a EE HG a ae 2 ae ae a a Ea ae ae ae a a og ag a oe fe se ok ok Koc ok ae ke fe akg ok ok ook / 
/x Initialize grid menu window structure and display window x/ 
[ie 2 a HE EH OR HAG ERG 2 2 Ea a a AR 9 A 2 oo 2 9 aK oo 2 a a a 2 a aK a a oe 2 oR oR oR oR oR aK a ok / 
if(!grid_flag) 

2 ensure window initialization bypass x/ 

grid_flag=1; 

/x Allocate memory and return pointer to structure x/ 

GRID = setWind(GRID,10,10,18,32); 

jx Set Window Attr - Fore,Back,Intensity,Blink x/ 

setAttr(GRID,mk_attr(WHITE,RED,OFF_INTENSITY,OFF_BLINK)); 


/x Set Window Border x/ 
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setBord(GRID,D_D_D_D); 

/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Grid Style Window “); 

/x Display window x/ 


StrtWind( GRID) ; 


else 
wind_display(GRID) ; 


/x Write name and exit messages x/ 


wind_write(GRID,1,1,21,gmenu,xinverse) ; 
wind_write(GRID,7,1,21,grid4,GRID->attr); 


wind_write(GRID,7,8,5,”ENTER”,mk_attr(WHITE,RED,OFF_INTENSITY,ON_BLINK)); 
/x set loop condition x/ 
exit=aFALSE; 


do 


/x Write grid entries bar) x/ 


wind_write(GRID,3,1,21,grid1,GRID->attr); 
wind_write(GRID,4,1,21,grid2,GRID->attr); 
wind_write(GRID,5,1,21,grid3,GRID->attr); 


/x Inverse proper menu item using grid_mapLJL] */ 


wind_attr(GRID,grid_map[grid_item][0], 
grid_mapLgrid_item]l1], 
co 
Xinverse); 


key = kb_read(); 


Switch(key) 
case RIGHT_ARROW: 
case RIGHT _ARROW_K: 
iw IF rt col->mv to left col ELSE->myv rt #/ 


iff Corid_item==0) | | (orid_item==1) | | 

(grid_item==3) | | (grid_item==4) | | 

(grid_item==6)||(grid_item==7) ) 
grid_item++; 


else if(grid_item==2 ) 
grid_item=0; 


else if(grid_item==5) 
grid_item=3; 


else 


grid_item=6; 
break; 
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6-7 Continued. 


case LEFT _ARROW: 
case LEFT_ARROW_K: 
/x IF left col->mv to rt col ELSE->mv left x/ 


if( (grid_item==2))|\(grid_item==1)| | 

(grid_item==5)||(grid_item==4) | | 

(grid_item==8)||(grid_item==7) ) 
grid_item--; 


else if(grid_item==0) 
grid_item=2; 


else if(grid_item==3) 
grid_item=5; 


else 
grid_item=8; 
break; 


case DOWN_ARROW: 
case DOWN_ARROW_K: 
/x IF bottom row->mv to top row ELSE->mv down x/ 


if(grid_item<=5) 
grid_item += 3; 


else if(grid_item==6 ) 
grid_item=0; 


else if(grid_item==7 ) 
grid_item=1; 


else 
grid_item=2; 
break; 


case UP_ARROW: 
case UP_ARROW_K: 
/x IF top row->mv to bottom row ELSE->mv up x«/ 


if(grid_item>=3) 
grid_item -= 3; 


else if(grid_item==0 ) 
grid_item=6; 


else if(grid_item==1 ) 
grid_item=/; 


else 
grid_item=8 ; 
break; 
case ENTER: 
exit=alRUE; 
break; 
} while(!exit); 


/x Remove Lotus Window x/ 


wind _remove(GRID); 
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/x return selected item x/ 


return(grid_item) ; 


[sie ie ie ae 3 2G 2 a ake 4626 ag ae 2 2c 2g ak ai 2c 2c oe oe aks akc ok ok ake akc ake / 


/ x xe / 
/x Simple Style Window * / 
/ x  / 
/x Receives: nothing * / 
/x Returns: nothing x / 
/* x / 
/x Displays Simple pop up xx / 
/x information window. % / 
/* * / 


// se she she 382K 246 2 ae ae ae akc 286 2462 ok oe oe ke a ae ok ok ake ok ok ok ak ok / 

/ se oe oe 262K 2 2 2 2 2 9 AG HG aC a a 2 a 9 GGG og 2k a8 a ag HG og oc 2 a ae a ae fe ak ag ak ak ok ake ake / 
/x Make variables that must retain their x/ 
/x value after the function exits global x/ 
1 se she 22426 24g fe ee 2 fe 246246 2G oe 2g 2 fe fe a 28s 28g 2k og oe og 2g oe ae fe af 2k 2k oe ofc oe ae oe ag ak ake ake ake / 
int infol_flag=0; 

void 

infol() 

| 


| ste she oe a a 2 2 a a EE ae a 2 a aK a Eo 2 2g af 91 a He ae a 2 28 28 2 9 a oo ee 2 28 a1 ok eo a oe ne fe oe oe ok ak aK ok ae oe 2k ok ok ok / 
/x Initialize grid menu window structure and display window x/ 
/ ste oie 2 a a HE a a HE aS a EAE 2 91 EC 2 a Ea 2 a 2 aCe 2g a 9K og 2g a 9K oo oe of of ok fe of oo oe ae of ok oe oe ok ok ok ak ok ok ok / 
if(linteltlag) 

he ensure window initialization bypass x/ 

infol_flag=1; 

/x Allocate memory and return pointer to structure x/ 

INFORM = setWind( INFORM,12-5,20-5,22-5,49-5); 

/x Set Window Attr - Fore,Back,Intensity,Blink x/ 

setAttr(INFORM,mk_attr(BLACK,CYAN,OFF_INTENSITY,OFF_BLINK) ); 

/x Set Window Border x/ 

setBord(INFORM,D_D_D_D); 

/* Set the bottom title #/ 

setTitle( INFORM,” Program History “); 


/x Display window x/ 


StrtWind( INFORM) ; 


else 
wind_display( INFORM); 
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6-7 


Continued. 
/x Write menu and 


wind_write(INFORM,1,1,28, 
wind_write(INFORM,2,0,30 
wind_write(INFORM,3,1,28 
wind_write(INFORM,4,1,28 
wind_write(INFORM,5,1,28 
wind_write(INFORM,6,1,28 
wind_write(INFORM,7,1,28 
wind_write(INFORM,8,0,30 
wind_write(INFORM,9,1,28 


/x wait for key press 


kb_read(); 


exit messages 


Speed] 


,speed2, 
,speed3, 
,speed4, 
,speedd, 
,speed6, 
,speed/, 
,speed2, 
,speedg, 


2 / 


»mk_att 


INFORM - 
INFORM - 
INFORM- 
INFORM - 
INFORM- 
INFORM- 
INFORM - 
INFORM- 


/*x remove window and display original 


wind_remove( INFORM); 


[sie soe 3 9 2 9 2 ae a ae a 2 a oe ae a a a a a oe aK ok aK a / 


r(CYAN, 

BLACK, 

OFF _INTENSITY, 
OFF _BLINK)); 
Pacur )* 
PacLr: 
Pattr): 
yattr) ¢ 
yattr)s 
Paccr): 
PALLY ) ; 
Pacttr): 


Screen information x/ 


/ x x / 

/x int main(void) xe / 

/ x * / 

/x Receives: nothing x / 

/x Returns: nothing 2 / 

/ x  / 

/*x Sets up the FIRST window x/ 

/x display and contains the x/ 

/*x scroll bar menu selection x/ 

/*x routine. x / 

/ x % / 

|e 6 He ee ae ae a a GG a oe oe ag ae a ge a a ok ig ae ag ak ak a ake ak / 

int 

main() 

| 

int key; /x recieves Scan & char key code x/ 
Ile SRT GS /x holds val for main loop check x/ 
int old_row; /x* Tracker for highlight bar  / 
int row; /x Tracker for highlight bar 2 / 
int intense; /x intensity attribute value  / 
int beep; /x flag for beep on ‘Q’ keypress «/ 


// ie ke oe a ae ae a 3 He 26 2 2 a ae a a HG og a 2 a ae ag a oe ake a ok ok ae / 
/x Initialize VIDIO structurex/ 


/ x 


x / 


/x ALWAYS call at prog start!x/ 
1) fe oho a 6 2 oe 2g a Eo a a HE a ae ae ag og a og he a oe ae ak oe ak ake / 


sern THitel: 


/*x Set global attribute intense for inverse video 


Xinverse 


mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK) ; 
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/x set global attribute hl_tense for WHITE,WHITE,INTENSE,OFF BLINK x/ 
hl_tense = mk_attr(WHITE,WHITE,ON_INTENSITY,OFF_BLINK); 

/x Set intense text attribute for this window #/ 

intense = mk_attr(WHITE,MAGENTA,ON_INTENSITY,OFF_BLINK) ; 

/e Turn off the cursor #/ 

Cu_remove(); 

/x Initialize main menu window structure and display window x/ 
/x Allocate memory and return pointer to structure x/ 

FIRST = setWind(FIRST,2,4,10,34); 

/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(FIRST,mk_attr(WHITE,MAGENTA,OFF_INTENSITY,OFF_BLINK) ); 
/x Set Window Border - top, bot, left, right x/ 
setBord(FIRST,D_D_S_S); 

/x Set the top and bottom title +x/ 

setTitle(FIRST,” Dranoel Software “); 

/x Display window x/ 

StrtWind( FIRST); 

/x Write menu name & line below to window x/ 


wind_write(FIRST,1,1,29,title,xinverse);: 
wind owritelFlRS!,2,.0,31,1_ bar, FIRST -Sattr): 


/x Write menu items to window x/ 


wind wri tecFIRST,3,.1.29,iteml.,FIRST-sattr): 
wind_write(FIRST,4,1,29,item2,FIRST->attr); 
wind_write(FIRST,5,1,29,item3,FIRST->attr); 
wind writelFIRST,6,0,31,1bar,FLRST-Aettr): 
wind writelFIRST,7,1,29,1tams, FIRS! -sattr): 


/x highlight first letter of item x/ 


wind_attr(FIRST,3,2,1,intense) ; /x L intense x/ 
wind_attr(FIRST,4,2,1,intense) ; /x G@ intense x/ 
wind_attr(FIRST,5,2,1,intense); /x S intense x/ 
wind_attr(FIRST,7,2,1,intense); /x Q intense x/ 


/x Set highlight trackers to start at iteml (row 3) x/ 


row = 3; 
old_row = 3; 
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6-7 Continued. 


/x set default for no beep x/ 


beep = aFALSE; 


/x Set loop condition x/ 


exit = aFALSE; 


// ake fea ahs 26 2 a a aS 2 8 oR a Ga AE a HC a8 Ea go ae AC ae eae af a ae fc ae eae of ok fe oc oe ok ak ke ok ok kak ok ak / 


/x Main keyboard loop. 


/ x 


Selects: 
iftTal¢), 


tlotus(), 


tgrid(), x*/ 
& quits x / 


/x Up,Down arrow or First letter move highlight barx/ 
/ sie shee 2% ae GoGo HG 2A 28 a G2 aE AG a aE AC a8 a ER a Ga ae Ea ak Co a Co ae ga fe fe a ae eo fe ako ae ak ak oe ak ake / 


do 


wirid_attrCFLRST, 
wind_attr(FIRST, 
wind_attr(FIRST, 
wind e@ttrtrlRst, 


if (beep ) 
{ 


bleep(); 

beep=aFALSE; 
old_row = 
key = 


row; 


kb _read(); 


old_row,1,29,FIRST->attr); 


old_row,2,l,intense); 
row,l1,29,xinverse); 
row,2,l1,hl_tense); 


/ x 
/x 


/* 


/ x 
/ x 


/x off highlight bar 
/x intense item let 
/x on highlight bar 
/x intense HB letter 
YES? beep after et 
scrn update x/ 
Yes-warning beep x/ 
reset-> no beep) x/ 


reset OFF tracker x/ 
get scan & char x / 
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Switch(key ) 
| 
case DOWN_ARROW: 
case DOWN _ARROW_K: 
1f (row==7 ) 
row=3; 
else if (row==5) 
row=/; 
else 
rOw++ ; 
break; 
case UP_ARROW: 
case UP_ARROW_K: 
1f (row==7 ) 
row=5; 
else if (row==3 ) 
row=/; 
else 
rOW--: 
break; 
case ENTER: 
Switch(row) 
case 3: 
thotust): 
break; 
case 4: 
tgrid(); 
break; 
case 5: 
infolt): 
break; 
case /: 


exit=alRUE; 


/* 
/x* 
/* 
/* 
/* 
/* 


/ x 


/* 


/x sel. 


/ * 


/ x 


/* 


If bottom row 
then->top row 
If row 5 

then skip to / 
Otherwise 

then down row 


If bottom row 
then skip to 5 
If row 3 
then->bot row 
Otherwise 
then up row 


Eval selection 


sel. lotus demo 


grid demo 


Simple demo 


Exit option 


eV 


al key press x / 


se / 
se / 
* / 
* / 
% / 
x / 


x / 
+ / 


¢ / 
x / 
 / 
* / 


i / 


se / 


+ / 
 / 
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se / 
i / 
* / 
 / 


break; 
| 
J 
break; 
default: /*x Check ascii val x/ 
key &=Ox00TT; /*x mask scan code ~ x/ 
Switch(key) /x which key? a / 
J 
\ 
case ‘|’: /x L->lotus choice x/ 
Gase@ “LL: 
row=3; 
break; 
case ‘g’: /*x G->grid choice sie / 
case ‘GG’: 
row=4; 
break; 
case *s*: /x S->simple demo eT 
Case “S": 
row=5; 
break; 
case ‘q’: /*x Q->quit wind sk / 
case ‘Q’: 
row=/; 
beep=aTRUE; /* set for beep a / 
break; 
break; 


\ 
j 


} while (!exit); 
/*x remove window and restore original screen x/ 
wind_remove(FIRST); 
/*x turn on the cursor x/ 


cu_display(); 
return(0); 


6-7 Ends. 


A commercial quality setup program 


Figures 6-8 and 6-9 present the setup program I wrote a few years ago for 
a ram resident viewer of Dbase and Paradox data files. Although the ram 
resident database file viewer never made it to market for a variety of 
complex reasons, the setup program is still pretty neat (in my humble 
opinion, of course). 

The setup program consists of a mini-display of an early version of 
Borland’s Paradox along with a means to control all the colors in the 
display. The idea was that the ram resident database viewer could be 
visually configured to the user’s whim. 

The source for this substantial program is presented in two files. 
Figure 6-8 presents the source code listing to PROG6-8.C and FIG. 6-9 
presents the source code listing to DFINST1.C. 
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6-8 [he source code listing to PROG6-8.C. 


/ se oe 2k 2 a oe ok oe ak ok oe ok ae ak ae a ok ak a ak ak / 


/ x  / 
Fe Orege-6.c  / 
/* se / 
/*x DFINST.C x / 
/ x  / 
/ x * / 
/ x x / 


/ sho sk oko ok kkk kkk / 


/ sie sie sk ok a a aK ok ok ok ok ok ok ok ok / 
/x Include Filesx/ 
/ se 2k 2k 2k ok Ro ok ok oe ok kkk / 


#ifdef OS2_PROG 


define INCL _DOSFILEMGR 
Finclude <os2.h> 


dFendi f 


fHinclude <io.h> 
dinclude <fent).h> 
#Finclude <sys\types.h> 
#Hinclude <sys\stat.h> 
#Hinclude <stdio.h> 
fHinclude <memory.h> 


// sks ses si ae ae ae 2 ae a6 ae ag a a a 2k ak ak ak ak 2k ak ak ake / 
/x C function prototypesx/ 
/x C-erious Lib Routinessx/ 
/ 2h 3 ok a ok ok sk ok ok a ak kak ok ok ok ok kk kok ok / 


f#Finclude “tproto.h” 


/ se sl se a se 2 3 3 3 2g oe ok ok ok ok a ok ok ok ok ok ok ok ak ok ok ok ok / 
/x C function prototypes x / 
/*x Routines used by this demo x/ 
// ste she sie a 36 2 ae ae oe eo ae a oe 2g oe a ae 2K oe ae ok akc akc ak ak ak ake ok / 


int. torial tvoTay: /x display grid type window * / 
IMt Leridztvelas: /*x display grid type window * / 
int tgrid3(void); /x display grid type window * / 
int. terid4t void): /*x display grid type window % / 
int tgrid5(void) /*x display grid type window % / 
int tgrid6(void); /x display grid type window x / 
int tgrid/(void) /*x display grid type window * / 
int tgrid8(void) /x display grid type window x / 
int tgrid9(void); /x display grid type window * / 
int tgridlO(void); /x display grid type window x / 
int toridll{void): /x display grid type window  / 
int Teridlz.yvoeig?: /x display grid type window * / 
int teridl3tvoid): /x display grid type window x / 
int tgridl4(void); /x display grid type window * / 
int infol(void); /*x Simple pop-up information window «/ 
int tlotus(void); /x display lotus style window te / 
void main(void); /* program main * / 


void write_screen(void); 
void bleep(void); 
void draw_df(void); 


156 Character-based window management demonstration programs 


void draw_window_border(void); 
void draw_table_top(void); 
void remove_df(void); 

void draw_mouse_bar(void); 
void draw_column_name(void); 
void draw_all_data(void); 
void draw_resize(void); 

void draw_box(int); 

void erase_box(int); 

void update_tta(int); 

void update_tta_back(int); 
void update_mba(int); 

void update_mba_back(int); 
void update_na(int); 

void update_na_back(int); 
void update_wb(int); 

void update_wb_back(int); 
void update_ra(int); 

void update_ra_back(int); 
void update_bwb(int); 

void update_bwb_back(int); 
void update_ttia(int); 

void update_ttia_back(int); 
void data_to_iobuff(void); 
void iobuff_to_data(void); 
void write_cfg(void); 

void display_colors(void); 
void draw_window_back(void); 
void draw_back_wind_bord(void) ; 
word 10_to_dup( void); 

void dup_to_io(void); 


/ se sie se oe oe oe oR oR ok ok oko ook ok ok kok ek / 
/x Structure Declarations */ 
| SoSH GK KK oi oi oo aK ok as a ake ake a / 


struct DFSQ0 } 


char main_color_attrib; 

char main_inverse_attrib; 

char background_window_attrib; 

char negative_value_attrib; 

char resize_box_attribD; 

char mouse_bar_attrib; 

char passive_window_border_attrib; 

char mode_flag; /x 0=25 line, 1=43 line x / 
char catalog_flag; /x O=auto open off, l=auto open on x/ 
} header; 


1 she SKS SE EK SE ARR ARH GAG GGG GoGo oC 2 2 2 oo a a oe a ok ok ake / 
/x Make variables that must retain their x/ 
/x value after the function exits, global x/ 
| she 3K 3K 2K SK SK HS HE A GH AG ACHR GG GG G2 2 2 2 2 a a oo oo ae a ak a ake // 


/x DF500.CFG buffer 
*x iobuffl0] starts DF500 configure data 
* jobuff{64] starts DFINST setup data 


x / 


char tobuTfl756]: 
char dupbuff[256]; 
int handle; 
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6-8 Continued. 


int lotus _flag=0; 

int lotus_item=0; 

int Al,Ad,AS,A4,45,A6,A7 ,A8: 

int A9,A10,A11,A12,A13,A14,A15,A16; 

int col_chart{[8] = {| BLACK,BLUE,GREEN,CYAN,RED,MAGENTA,BROWN,WHITE 
int grid_flag=0; 


/ she sie 2H ae 28 He GHG a HG HEHE a HEHE Ge ACC Gg 21 aC ok ak 2k ao ok ok a ok a ok ok ok ak ok / 
/x Global attribute variables x / 
/ she she 326 262 2 2 ge ie a 2c 22 2K ak a ok ok ke ake 2k oko ok ak ok ok ok ake ok ake ok ok ok ok ok sk ok ok ok ok / 


THT mode_toggle=0; /x 0=25 line 1=43 line x/ 
int catalog_toggle=0; /*x O=auto open off l=on x/ 
int table_top_attr; 
int tta_fore; 

int ttd_back: 

int tta_flag; 

int table_top_inv_attr; 
int ttia_fore; 

int ttia_back; 

int Ltia_T iad: 

int window_background; 
int wb_fore; 

int wb_back; 

int wb_flag; 

tt resize_attr; 

int ra_fore; 

int ra_back; 

int ra Tiag: 

int negative_attr; 

int na_fore; 

int na_back; 

Ht na_flag; 

int data_attr; 

int da_fore; 

int da_back; 

int da_flag; 

int mouse_bar_attr; 
int mba_fore; 

TH mba_back; 

int mba_flag; 

int back_wind_bord; 
int bwb_fore; 

int bwb_back; 

Lat bwb_flag; 


int grid_item=0; /*x item selected value % / 
int grid_iteml=0; /x item selected value * / 
int grid_item2=0; /*x item selected value * / 
int grid_item3=0; /*x item selected value * / 
int grid_item4=0; /x item selected value se / 
int grid_item5=0; /*x item selected value * / 
int grid_item6=0; /*x item selected value ie / 
int grid_item/7=0; /«x item selected value  / 
int grid_item8=0; /*x item selected value  / 
int grid_item9=0; /x item selected value 2 / 
int grid_iteml0=0; /x item selected value x / 
int grid_itemll=0; /x item selected value * / 
int grid_iteml2=0; /x item selected value * / 
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ie 


int grid_iteml13=0; /x item selected value * / 
int grid_iteml4=0; /x item selected value x / 
int old_grid_item; 

int old_grid_iteml; 

int old_grid_item2; 

int old_grid_item3; 

int old_grid_item4; 

int old_grid_item5; 

int old_grid_item6; 

int old_grid_item/; 

int old_grid_item8; 

int old_grid_item9; 

int old_grid_iteml0o; 

int old_grid_itemll; 

int old_grid_iteml2; 

int old_grid_iteml3; 

int old_grid_iteml4; 


/x Global df display data * / 
/ ee oe ake a a af 2 9 eo a oe ae a a a oH a oe oe ae a a a ogo oe oe ae ae a aK ok ok ok ae ak akc ak ak / 


char data_borderl[44] = { 
2019) 254,935,205, 
£05,205, 205,205,205, 205, 205.205, 205,205, 
205 20S. PS. 205, 205,205,205, 705,205,205. 
As, 205,205,205, 205, 205,205,205, 205,205. 
O1,24, 93, 205,91,29,93,205,167 Js 


char  table_topl[{] = “Table: 
char table_top2[] . 
char table_top3l] = “Masterbk”; 


/x Pointers to Window Structures x/ 


WIND «FIRST; 
WIND «DISPLAY; 
WIND «GRID; 
WIND «INFORM; 
WIND «LOTUS; 


/ sie 3k 2 ok ok ok 2k ok ok 2k 2 ak ok ok ake ok ak ok / 
/x Window Messagesx/ 
/ see oie 3 2k oi 2 2g 2g 2 ok ok 2k ak ake ok ak ok / 


/x Messages for FIRST Window x/ 


char title[30] = “ DataFinder 5.0 Setup V. 1.0 “; 

unsigned char i_bar[31] = { 
195,196,196,196,196,196,196,196,196,196,196, 
196,196,196,196,196,196,196,196,196,196,196, 
196,196,196,196,196,196,196,196,180 }; 


char item1[29] 
char item2[29] 
char item2aL29] 
char item3[29] 
char item3al29] 
char item5[29] 


“ Display Colors ie 
‘ Video Mode - 25 Line Enable “; 
“ Video Mode - 43/50 Line En. 

“ Cat. Auto Open - ON 

“ Cat. Auto Open - OFF 

“ Quit Setup Program 
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/x messages for DISPL 


char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


dpitem1[29] 
dpitem2[29] 
dpitem3[29] 
dpitem4[29] 
dpitem5[29] 
dpitem6[29] 
dpitem7[29] 
dpitem8[29] 
dpitem9[29] 
dpitem10[29] 
dpitem11[29] 
dpitem12[29] 
dpitem13[29] 
dpiteml4[29] 


il 


tou t wt bt tb bt dod 


char coll_name[8] = { 
char col2_name[13] = 
205,205,205, ’ 
‘Cy £ e205 ,205 
char col3_nameLl19] 
205,205,205, 205 
Ee Abe ee 
205,205,205, 205 
char coll _ri[8] 
char coll_r2[8] 
char coll r3le) 
char coll_r4[8] 
char col2@_rili3) 
char colzZ rziia| 
char col2 r3Ci3) 
char col2 r4([i3] 
char cols rig} 
ehar col3_rzLig] 
char col3_r3[19] 
char col3_r4l19] = 


»20 
, 20 
, 0 
,20 


Ih 


|| I 


/x Messages for LOTUS 


menul([47] 
messl[47] 
mess2[47] 
mess3[4/7] 
mess4[4/7] = 
mess5[47] 


char 
char 
char 
char 
char 
char 


Ra 


/x lot_map holds mess 


int lot_map[5][2] = | 
Lb; 


/x messages for GRID window - 


ay 


“ Mean 


AY COLORS window x/ 


* Main Color Foreground 
‘Main Color Background 
‘ Mouse Bar Foreground 
“ Mouse Bar Background 
“ Negative Data Foreground 
“ Negative Data Background 
“ Under Window Foreground 
“ Under Window Background 
‘ Highlight Bar Foreground 
‘ Highlight Bar Background 
‘ Passive Wind. Bord. Fore. 
‘ Passive Wind. Bord. Back. 
“ Resize Window Foreground 
“ Resize Window Background 


“MASTERBK” 


i 


5 
B 


a 


a 
6678. 
A5AS4 
“254, 
Pear ay . 
Goulden 
Yung 
Fuchstein 
Chuckman 


Window x/ 


Mode Median Range 


is avg. distance from mean 


column offset & length x/ 


holds row & column x/ 
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Standard Deviation “; 
“Mean is the Average score of the distribution “; 
‘ Mode is the most frequent score 

‘ Median is the middle score of sample 
nge is the distance from highest to lowest 
“ Standard dev. 


char gridl[42] = { 
Be yobs oe 019, bey dey 52.00 ,e19, 
32.32 .5¢,5¢,¢019,32 ,32,02,32,219, 
Bf pg DE el pOl vO LT poe pObxot poe pee, 
Se, SL e004 Oe ,219 ol poe ya yor,.cle, 
Shy oe poe |: 


char grid_eral44] = | 
DE GSE pO pO phe ek pOk pe 5 HE pe OL geet one cence 
Dé D6 Ob p00 phe ae, 
DH abe Gah, pe wok Je Gok poe 4 OL. poo EL POC eae pee ae ol. 
Be he pO pO poh yee f | 


/* grid_map row,column for start of inverse item x/ 


int grid_mapl9][2] = { 
sds 

Lo, 

Ls, 

cee 
,10, 
Rul 
vr 
10, 
es 2 


oom & SB BW W W 


/x infol window data x/ 


unsigned char speed3[30] = { 199,196,196,196,196,196,196,196,196, 
196,196,196,196,196,196,196,196,196, 
196,196,196,196,196,196,196,196,196, 


196,196,182 }; 
Press (Y) to save new 
Contig. and quit to DOS. 
Press (N) to Quit to DOS 
and not save new Contig. 
Press any other Key to 
return to DF 5.0 setup. 


char speed1[28] 
char speed2[28] 
char speed4[28] 
char speed5[28] 
char speed/7[28] 
char speed8[28] 


/ se oe oi 2k ok 2 ok ok ok 2k a a 2k ok ak ak ak ak ak ak / 
/x global variablesx/ 
/ sh ok oko oR oR a a oR a a a ok ka a & / 


char  up_dn5[14] ‘ Close Window “ }; 
char up_dn6[29] 


char  up_dn/7[29] 


int xinverse; /x attribute for inverse 
int hl_tense; /x highlight bar intensity 
char Upidnl4] = 1 32,é4,25,32 }; 
char up_dnll6] = { “ Move “ }; 
char ip anzio] = 1 32,60,196,217 32 | 
char  UWpuasie] = 1“ Select ™ }: 
char Up.an4lo) = 1 * Eso” & 
= 4 
= 4 
= | 


char datl6[4] = { 16,16,16,16 }; 
char datl7(4] = {1 17,17,17,17 3}: 
char dat30[4] = { 30,30,30,30 |}: 
char dat31[4] Sy Slsdleclse. & 
char dat32[4] = { 32,32.32.32 ]% 
char datl79[4] = { 179,179.,179,179 }: 


“ F1Q - Restores Orig. Colare ™ 


* / 
* / 
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char datl86[4] = 
char datl88[4] = 
char datl91[4] = 
char datl92[4] = 
char datl96[6] = 
char dat200[4] = 
char dat203[4] = 
char dat205[28] = 


16.196 1: 


196,196,196,196, 


ho 
© 
DO 
—_ 
W 
DO 
pee 
WO 
ie) 
3 
W 
DO 
est eee pS ees ee ee 


( 217.217.217.217 
| 218.218.218.218 
| 254254254 254 


char dat21/[4] 
char dat218[4] 
char dat254[4] 


we we we we 


char dat1/8[80] { 
178,178,178, 178,178,178, 178,178,178,178., 
178,178,178, 178,178,178,1/38,178,178,178, 
l¥8,1/8.178,176,178.176,178,178,178,178. 
1/8,176,178,178,1/6,1/8,178,176,178,178, 
176,178,178,178,1/8,178,1/78.178,178.178, 
L7#8,178,178,178,178,178,1/78,178,1/78,1/78, 
L768, 1/78,178,176,178,178,178,178,1/8,178, 
178,178,178. 178.178.178,178.178,178,178 }: 


/ sess ee oe oie 2g a ae 3 a 2 ae 3 a a 3K oe oe a ae ae ok oe ok ke ok ok ae ok / 


/* x / 
/x INCLUDE DFINST1.C SOURCE FILE x/ 
/ x ay 


/ SRO GRR RIOR RGR GRR kkk kk / 
einchide “dfinstl.c 


// sess ee a fee a oe oe oe ae a oe a oe ae ok oe ae ok ae ok ak ok ok ae ake ok / 


/ x x / 
/x Lotus Style Window x / 
/ x se / 
/x Receives: nothing x / 
/x Returns: item selection number x/ 
/ x a / 
/x Displays Lotus style window 2 / 
/x with attendant cursor, high- x / 
/x light and item description ad 
/*x routines. x / 
/ x  / 
/ se af af a 21 2 25 og 5 ae ag og ge ag a oe ge og oe og oe ok ok ok ok ok ok ok ok ok ok kk / 
int 

tlotus() 

| 

int key; /* SCan and char value % / 


int @xit: fe val for loop cond chk 4a/ 
int exp_a; /* item explanation attr x/ 
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/*x Initialize lotus menu window structure and display window x/ 
/x Set lotus explanation Attr - Fore,Back,Intensity,Blink x/ 
exp_a = mk_attr(MAGENTA,BLUE,ON_INTENSITY,OFF_BLINK) ; 


/x Call window initialization routines only once x/ 


if(!lotus_flag) 


/x ensure window startup bypassed next window call x/ 
lotus_flag=1; 

/x Allocate memory and return pointer to structure x/ 
LUIS = Setw inet LUIS 0.20.9 ,G8)% 

/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(LOTUS,mk_attr(WHITE,BLUE,ON_INTENSITY,OFF_BLINK)); 
/x Set Window Border - top, bot, left, right #/ 
setBord(LOTUS,S_S S$ S$); 

/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(LOTUS,” Lotus Style Window “); 

/x Display window x/ 


StrtWind( LOTUS); 


else 
wind_display(LOTUS) ; 


/* set loop condition x/ 
exit=aFALSE; 


do 


/x Write title bar - erasing old inverse” x/ 
wind_write(LOTUS,1,1,47,menul,LOTUS->attr); 


/x Inverse proper menu item using lot_mapLJ[] x/ 


wind_attr(LOTUS,1,lot_mapLlotus_item][0],lot_map[Llotus_item][1],hl_tense); 
Switch(lotus_item) /x print item explanation x/ 


case 0: 
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wind_write(LOTUS,2,1,47,messl,exp_a); 


break; 
case l: 


wind_write(LOTUS,2,1,47,mess2,exp_a); 


break; 
case 2: 


wind_write(LOTUS,2,1,47,mess3,exp_a); 


break; 
case 3: 


wind_write(LOTUS,2,1,47,mess4,exp_a); 


break; 
case 4: 


wind_write(LOTUS,2,1,47,mess5,exp_a); 


break; 


key = kb_read(); 


Switch( Key ) 
{ 


# / 
* / 
x / 


x / 


* / 
x / 


case RIGHT_ARROW: /x At right item? 
if(lotus_item==4 ) /x Yes? 
lotus_item=0; /x set left item 
else /x Else # / 
lotus_item++; /x move rt 1 item 
break; 
case LEFT_ARROW: /x At left item? se / 
1f(lotus_item==0 ) /x Yes? 
Jotus_item=4; /x set right item 
else /x Else x / 
1etus_item--: /x move |lft 1 item x/ 
break; 
case ENTER: 
exit=alRUE; 
break; 


} while(!texit); 


/*x Remove Lotus Window x/ 
wind_remove(LOTUS); 
/x return selected item number x/ 


return(lotus_item); 
} 


/ se oe oe 2 a 2s 2 2 a 2 a 2 a oe ae oe oo ok oR a a oko oko ak ok / 


/ x x / 
/x Grid Style Window % / 
/ x % / 
/x Receives: nothing * / 
/x Returns: item selection numbersx/ 
/ x x / 


/x Displays Grid style window * / 
/*x with attendant cursor & high- x/ 
/x light description routines. % / 
/* * / 


// sigs oe ae 2 3 2 a oe ak oe oo oo oo ok ok ok oe ok ok ok ok ok oR aK ok ok ok ok ok ok / 
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[ie 2 2 A He AG a a AG ae EH 2 a AE Go a EC a he a aE a ae hg a a oe ag ak aco a ak ak / 
/x Make variables that must retain their ie / 
/x value after the function exits global * / 
/ si 2 3k 3k ok ok 2k ok 3k ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ok ak ok ok ok ok ok a ok ok ok ok ok ak ak ok / 


char top_box[3] = | 
char bot_box[3] = { 


void 


draw_box(val) 


1Mt val: 


int row,co!: 


Switch(val) 


case Oe: 
row=1; 
col=3; 
break; 


case Ls 
row=1l; 
col=8; 
break; 


case Z: 
row=1:; 


see 


break; 


case oh 
row=1; 


col=18; 


break; 


case 4: 
row=1; 


col=23; 


break; 


case Bs 
row=1; 


col=28; 


break; 


case 6: 
row=1: 


col=33; 


break; 


case 73 
row=1; 


col=38; 


break; 


case 63 
row=3; 
col=3. 


2185190191 
192,196,217 
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break; 


case 8 
row=3; 
col=8; 
break; 


case LO 
row=3; 
co l|=13: 
break; 


case aso lee 
row=3; 
col=18; 
break; 


case Le 
row=3; 
col]=23% 
break; 


case 13 
row=3; 
col=28; 
break; 


case Las 
row=3; 
col=33; 
break; 


case bce. 
row=3; 
col=38; 
break; 


wind_write(GRID,row,col,3,top_box,Al3); 
wind_write(GRID,rowt+2,col,3,bot_box,Al3); 
wind_write(GRID,rowt+l,col,1l,datl/79,Al13); 
wind_write(GRID,row+l,col+2,1,dat1/79,Al3); 


char era_box[3] {| 32,332,342 }: 
void 

erase box(val) 

int val; 

int fow,col: 


Switch(val) 
{ 
case Ge 
row=1; 
col=3; 
break; 
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case Lt 
row=1; 
col=8; 
break; 


case Z? 
row=1; 


eolel3: 


break; 


case xT 
row=1; 


col=18: 


break; 


case As 
row=1; 


ee 


break; 


case oi 
row=1; 


col=28: 


break; 


case 6: 
row=1; 


ace 


break; 


case g 3 
row=1; 


col=3h: 


break; 


case 8: 
row=3; 
col=3; 
break; 


case Q; 
row=3; 
col=8; 
break; 


case 10: 


row=3; 


colels: 


break; 


case 1.2 


row=3; 


ealale: 


break; 


case iz 


row=3; 


ealses: 


break; 
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case 13: 
row=3 ; 
col=28; 
break; 


case 14 
row=3 ; 
col=33; 
break; 


case LS: 
row=3; 
col=38; 
break; 
wind_write(GRID,row,col,3,era_box,GRID->attr); 
wind_write(GRID,rowt2,col,3,era_box,GRID->attr); 
wind_write(GRID,rowt+l,col,1,dat32,GRID->attr); 
wind_write(GRID,rowt+l,col+2,1,dat32,GRID->attr); 


void 

update_tta(val ) 

int val; 

{ 

if(val<8) 
tta_fore = col_chartl[val]; 
ttia_fore = tta_back; 
ttia_back = tta_fore; 
tta_flag = 0; 
table_top_attr = mk_attr(tta_fore,tta_back,OFF_INTENSITY,OFF_BLINK); 
} 


else 
val -= 8; 
tta_fore = col_chartl[val]; 
ttia_fore = tta_back; 
ttia_back = tta_fore; 
tta_flag = 1; 


table_top_attr = mk_attr(tta_fore,tta_back,ON_INTENSITY,OFF_BLINK) ; 


void 
update_tta_back(val ) 
int val; 
| 
tta_back = col_chart[val]; 
ttia_fore = tta_back; 
ttia_back = tta_fore; 
if(!tta_flag) 
table_top_attr = mk_attr(tta_fore,tta_back,OFF_INTENSITY,OFF_BLINK); 
else 
table_top_attr = mk_attr(tta_fore,tta_back,ON_INTENSITY,OFF_BLINK) ; 
} 


void | 
update_mba(val ) 
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int val: 
if(val<8) 
| 
mba_fore = col_chartl[val]; 
mba_flag = 0; 
mouse_bar_attr = mk_attr(mba_fore,mba_back,OFF_INTENSITY,OFF_BLINK); 


else 
val -= 8; 
mba_fore = col_chartl[val]; 
mba_flag = 1; 


mouse _bar_attr = mk_attr(mba_fore,mba_back,ON_INTENSITY,OFF_BLINK); 
} 


void 
update_mba_back(val) 
int Val: 
{ 
mba_back = col_chartl[val]; 
if(!mba_flag) 
mouse_bar_attr = mk_attr(mba_fore,mba_back,OFF_INTENSITY,OFF_BLINK) ; 
else 
mouse _bar_attr = mk_attr(mba_fore,mba_back,ON_INTENSITY,OFF_ BLINK); 


void 
update_na(val) 
int val; 
if(val<8) 
| 
na_fore = col_chartLval]; 
na_flag = 0; 
negative_attr = mk_attr(na_fore,na_back,OFF_INTENSITY,OFF_BLINK); 


else 
{ 
val -= 8; 
na_fore = col_chart[val]; 
na_flag = 1; 


negative_attr = mk_attr(na_fore,na_back,ON_INTENSITY,OFF_BLINK); 


void 
update_na_back(val) 
int val; 
na_back = col_chartl[val]; 
if(!na_flag) 
negative_attr = mk_attr(na_fore,na_back,OFF_INTENSITY,OFF_BLINK); 
else 
negative_attr = mk_attr(na_fore,na_back,ON_INTENSITY,OFF_BLINK); 


void 


update_wb(val) 
int val; 
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| 
if(val<8) 
wb_fore = col_chartLval]; 
wb_flag = Q; 
window_background = mk_attr(wb_fore,wb_back,OFF_INTENSITY,OFF_BLINK) ; 


else 
val -= 8; 
wb_fore = col_chart[val]: 
wb_flag = 1; 


window_background = mk_attr(wb_fore,wb_back,ON_INTENSITY,OFF_BLINK) ; 


void 
update_wb_back(val) 
int val; 
| 
wb_back = col_chart[val]; 
if(!wb_flag) 
window_background = mk_attr(wb_fore,wb_back,OFF_INTENSITY,OFF_BLINK); 
else 
window_background = mk_attr(wb_fore,wb_back,ON_INTENSITY,OFF_BLINK); 


void 

update_ttia(val) 

int val; 

if(val<8) 
{ 
ttia_fore = col_chart[val]; 
ttia_flag = 0; 


table_top_inv_attr = mk attrt(ttia_fore,ttia_back,Orr_INTENSITY, 

UFFUBLINR Ss 
else 

val -= 8; 

ttia_fore = col_chart[val]; 

ttia_flag = 1; 

table_top_inv_attr = mk_attr(ttia_fore,ttia_back,ON_INTENSITY, 

OFF_BLINK); 


void 

update_ttia_back(val ) 

Ht wal: 

ttia_back = col_chartLval]; 

if(ittia_t lag) 
table_top_inv_attr = mk_attr(ttia_fore,ttia_back,OFF_INTENSITY, 
OFF_BLINK); 

else 
table_top_inv_attr = mk_attr(ttia_fore,ttia_back,ON_INTENSITY, 
OFF_BLINK); 
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void 

update_bwb(val ) 

Ift val: 

{ 

if(val<8) 
bwb_fore = col_chartl[val]; 
bwb_flag = 0; 
back _wind_bord = mk_attr(bwb_fore 


else 
val -= 8: 
bwb_fore = col_chart[val]; 
bwb_flag = 1; 


back _wind_bord = mk_attr(bwb_fore 


void 

update_bwb_back(val ) 

int val; 

bwb_back = col_chart[val]; 

if(!bwb_flag) 
back_wind_bord 

else 
back_wind_bord 


mk_attr(bwb_fore 


mk_attr(bwb_fore 


,bwb_back,OFF_INTENSITY,OFF_BLINK) ; 


,bwb_back,ON_INTENSTITY,OFF_BLINK) ; 


,Dwb_back,OFF_INTENSITY,OFF_BLINK) ; 


,bwb_back,ON_INTENSITY,OFF_BLINK) ; 


resize_attr = mk_attr(ra_fore,ra_back,OFF_INTENSITY,OFF BLINK); 


void 

update_ra(val) 

int val; 

| 

if(val<8) 
ra_fore = col_chart[val]: 
ra_flag = 0; 

else 
| 
val -= 8; 
ra_fore = col_chart[val]; 
ra_flag =1; 


resize_attr = mk_attr(ra_fore,ra_back,ON_INTENSITY,OFF_BLINK); 


void 

update_ra_back(val) 

int val: 

| 

ra_back = col_chartl[val]; 
if(!ra_flag) 


resize_attr = mk_attr(ra_fore,ra_back,OFF_INTENSITY,OFF_ BLINK); 


else 


resize_attr = mk_attr(ra_fore,ra_back,ON_INTENSITY,OFF_BLINK); 
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| se 2 oR RRR RK Ko ok ok ok ok ok ok ok ok ak ak ok / 


/ x x / 
/x Simple Style Window 2 / 
/* 2 / 
/x Receives: nothing * / 
/*x Returns: nothing % / 
/ x % / 
/*x Displays Simple pop up #/ 
/x information window. * / 
/ * x / 


/ se sk 2 ok ok ok oe ok a 2 oR oR oR a ok ok ok oR a oR Kk / 


/ se sg se sles oh a a a 2 ah a af 24 fe 24 ae af 2 af af afc af of ofc of ofc of of of afc sfc of of ofc ake oko ok ak ake ake ok / 
/x Make variables that must retain their * / 
/x value after the function exits global  / 
// se se se she sf ae 2e a 2 2 af af sfc ake 2fe 2k af afc afc fe afc afc af 24 24 2K ofc 2k ofc 2k ofc ok ok 2c oc ok ake ake oke ake ake ok / 


int infol_flag=0; 


int 

infol() 

int key; /*x SCan and char value 2 / 
int red_attr; 


red attr = mk_attr¢(RED,WHITE,OQFF_INTENSITY ,QFF_BLINK); 


// se a a a se 2 36 36 36 6 6 a a aE a 6 aE 1 a EE SE fe ES a oC CC EC og 9 og oe a og oC IC 2S oC oC 2 og 2g og oe a og oe oo oe ok ok oo ok ok / 
/x Initialize grid menu window structure and display window x/ 
|e He HG GoGo ag a A AG HE HG GG 2G 24 a a AG HG Gog 24 28 ae aC HE HE oS aC a a fe ae fe ae ag feo 2 2 fe a ag he og og oc ok oe fe fe he a ok oie ake ak ake / 


if(!infol_flag) 
/x ensure window initialization bypass x/ 
infol_flag=1; 


/x Allocate memory and return pointer to structure x/ 
INFORM = setWind(INFORM,12-4,20-5,22-5,49-5); 


/x Set Window Attr - Fore,Back,Intensity,Blink «/ 
setAttr(INFORM,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK) ); 


/x Set Window Border x/ 
setBord(INFORM,D_D_D_D); 


/x Set the bottom title x/ 
setTitle( INFORM,” Quit “); 


/x Display window x/ 
StrtWind( INFORM) ; 


else 
wind_display( INFORM) ; 


/x Write menu and exit messages x/ 
wind_write(INFORM,1,1,28,speedl1,INFORM->attr) ; 


wind_write(INFORM,2,1,28,speed2,INFORM->attr) ; 
wind_write(INFORM,3,0,30,speed3,INFORM->attr) ; 
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wind_write(INFORM,4,1,28,speed4,INFORM->attr); 
wind_write(INFORM,5,1,28,speed5,INFORM->attr); 
wind_write(INFORM,6,0,30,speed3,INFORM->attr); 
wind_write(INFORM,7,1,28,speed/7,INFORM->attr) ; 
wind_write(INFORM,8,1,28,speed8,INFORM->attr) ; 
wind_attr(INFORM,1,10,1,red_attr); 

wind_attr(INFORM,4,10,1,red_attr); 


/x wait for key press x/ 

key = kb_read(); 

/*x remove window and display original screen information / 
wind_remove( INFORM) ; 


return (key); 
} 


/ x 

* write_screen 
e 

* Writes the main screen 
display. 


%* 


x / 


void 

write_screen() 

| 

it acer! ,attrz: 

int count; 

attrl = mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK); 
attr2 = mk_attr(RED,WHITE,OFF_INTENSITY,OFF_BLINK); 
SCPR ALLL, 0 80 ,attrl >: 

scern_attr(24,0,80,attr2):; 


for(count=1; count<24; count++) 
scrn_write(count,0,80,datl/8,attrl); 


scrn_writet().25,30,title,attrl); 
scrn_write(24,0,4,up_dn,attr2); 
scrn_write(24,4,6,up_dnl,attrl); 
scrn_write(24,10,5,up_dn2,attr2): 
scrn_write(24,15,8,up_dn3,attrl); 
scrn_write(24,23,5,up_dn4,attr2); 
scrn_write(24,28,14,up_dn5,attrl); 


/* 
* Display Colors first level window 
% / 


void 
display_colors() 


int key; /x receives Scan & char key code x/ 
Int exit; /x holds val for main loop check x/ 
int old_row; /x Tracker for highlight bar * / 
int row; /x Tracker for highlight bar * / 
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int beep; /*x flag for beep on ‘Q’ keypress x/ 
int acerl, acureé: 


attri = mkK_atir¢ Black, WHITE,OFF_INTENSITY ,OFF_BLINK} 3 
attrée = mkK_attrc RED, WHITE,OFF_INTENSITY ,OFF_BLINK): 


/x Initialize main menu window structure and display window x/ 


/x Allocate memory and return pointer to structure x/ 

DISPLAY = setWind(DISPLAY,4,2,19,29); 

/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(DISPLAY ,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/x Set Window Border - top, bot, left, right x/ 

setBord( DISPLAY ,5_S_5_S):; 

/x Set the top and bottom title x/ 

setlitie( DISPLAY,” DISPLAY COLORS *); 

/x Display window x/ 

strtWind(DISPLAY ); 

/x Write menu items to window x/ 
wind_write(DISPLAY,1,1,25,dpiteml ,DISPLAY->attr); 
wind_write(DISPLAY,2,1,25,dpitem2,DISPLAY->attr 
wind_write(DISPLAY,3,1,25,dpitem3,DISPLAY->attr 


) 
) 
wind_write(DISPLAY,4,1,25,dpitem4,DISPLAY->attr); 
wind_write(DISPLAY,5,1,25,dpitem5,DISPLAY->attr); 
) . 
My 


. 
> 
° 


’ 


wind_write(DISPLAY,6,1,25,dpitem6,DISPLAY->attr 
wind_write(DISPLAY,/7,1,25,dpitem/ ,DISPLAY->attr 
wind_write(DISPLAY,8,1,25,dpitem8,DISPLAY->attr); 
wind_write(DISPLAY,9,1,25,dpitem9,DISPLAY->attr); 
wind_write(DISPLAY,10,1,25,dpiteml0,DISPLAY->attr); 
wind _write(DISPLAY,11,1,25,dpitemll,DISPLAY->attr); 
wind_write(DISPLAY,12,1,25,.dpitemlz,DISPLAY=->attr): 
ie 
Yi; 


> 


wind_write(DISPLAY,13,1,25,dpiteml3,DISPLAY->attr 
wind_write(DISPLAY,14,1,25,dpiteml4,DISPLAY->attr 


/x Set highlight trackers to start at iteml (row 1) x/ 


row = l; 
old_row = 1; 


/*x set default for no beep #/ 
beep = aFALSE; 
/x Set loop condition x/ 


exit = a@FALSEs 
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[shes eo a Go a Go 2 G2 2 GC 2 C2 a Coe a a oe ok C2 a Ko aK ok ok ok aK ok ok ak ak ok ok ak ok ak ak ok ok / 
/x Main keyboard loop. Selects: tlotus(), tgridl(),x/ 
/* infol(), & quits x / 
/x Up,Down arrow or First letter move highlight barx/ 
1 se ae 6 2 2 2 ae ae a a a HE G2 2 a ag a a GHC Co 2 a a a GG 2G 2 fe ee ak 2 ac 2 oe ae ok 2k ak ok a ake ok ok ok ok ok ok / 


do 
/x Write FlO message x/ 


scrn_write(24,45,29,up_dn6,attrl); 
Ssern_attri24 .46,35,.attr2) : 


wind_attr( DISPLAY ,old_row,1,26,DISPLAY->attr): /# off highlight bar «/ 
wind_attr(DISPLAY,row,1,26,xinverse); /x on highlight bar x/ 


if( beep) /x YES? beep after x/ 
/ x scrn update «/ 
bleep(); /x Yes-warning beep x/ 
beep=aFALSE; /x reset-> no beep” x/ 

old_row = row; /x reset OFF tracker x/ 


if ((row==13) | | Crow==14) ) 
draw_resize(); 


else 
draw_window_back(); 
key = kb_read(); /*x get scan & char * / 
Switch(key ) /*x eval key press % / 
case DOWN_ARROW: 
1f (row==14) /x If bottom row * / 
row=1; /x then->top row x / 
else /x Otherwise * / 
rowt++; /x then down row * / 
break; 
case UP_ARROW: 
1f (row==1) /x If bottom row % / 
row=14; /x then skip to 5 * / 
else /x Otherwise * / 
row-*s /*x then up row m/ 
break; 
case Fie /x test test test * / 
dup_to_io(); 
remove_df(); 
draw_df(); 
break; 
case ESC: 
exit=alRUE; 
break; 
case ENTER: 
Switch(row) /x Eval selection % / 
case l: /x display colors % / 
scrn_write(24,45,29,up_dn/,attrl); 
tgridl(); 
break; 
case 2: 
sern_write(24,45,29,up_drn/,attrl): 
tgridz(); 
break; 
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case 3: 


scrn_write(24, 


torida( >: 
break; 


case 4: 


scrn_write(24, 


tgrid4(); 
break; 


case 5: 


scrn_write (24, 


torids( 7: 
break; 


case 6: 


scrn_write(24, 


torid6(); 
break; 


case /: 


scrn_write(24, 


Loridst i: 
break; 


case 8: 


scrn_write(24, 


teriad(): 
break; 


case 9: 


scrn_write(24, 


teriag i: 
break; 


case 10: 


scrn_write(24, 


taridig(): 
break; 


case ll: 


scrn_write(24, 


teridiit): 
break; 


case l2: 


scrn_write(24, 


toridiz(): 
break; 


case 13: 


Scrn_write(24, 


tqridl3(): 
break; 


case 14: 


Scrn_write(24, 


LoPridlat}: 
break; 
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45 


45 


45 


45, 


A5 


45 


45, 


45, 


45, 


45, 


45, 


45 


sie 


neo 


eo 


ao, 


a, 


5295 


re 


Zo 


a 


29 


rae oP 


,22 


up_dn/ 


,up_dn/ 


,up_dn/ 


up_dn/ 


,up_dn/ 


up_dn/ 


up_dn/ 


up_dn/ 


up_dn/ 


,UD ans 


up_dn/, 


,uUp_dn/ 


ae ot ee 


,Attrl }: 


,OELEL) = 


,ACEPL 2 


,attrL): 


attri): 


cLri 


,aCErL): 


,attrl): 


acurils 


attrl): 


,attrl); 


break; 


default: /*x Check ascii val. x/ 
key &Ox00fFf; /*x mask scan code 2% / 


Switch(key ) /x which key? x / 
{ 
case ‘d’: /x L->lotus choice” x/ 
case ‘D’: 
row=1; 
break; 


case ‘S’: /x G->grid choice % / 
Gase ‘*S": 

row=2; 

break; 


case “1”: /*x S->simple demo ay 
case ‘L’: 

row=3 ; 

break; 


case ‘q’: /* Q->quit wind x / 
case “Us 
rOWw=0; 
beep=alTRUE; /* set for beep x / 
break; 
break; 
} while (!lexit); 


/x remove window and restore original screen x/ 
wind_remove(DISPLAY); 


scrn_write(24,45,29,up_dn/,attrl); 


/ ese a 2 a 2 ok oo a oR oR oR oR a oR aR oR a oR oR oR a a ok / 


/ x x / 
/x int main(void) * / 
/* % / 
/x Receives: nothing x / 
/x Returns: nothing * / 
/* % / 


/*x Sets up the FIRST window x/ 
/*x display and contains the #/ 
/*x scroll bar menu selections/ 


/x routine. * / 

/ x * / 

/ se 3 oie oe oe ae ag ae a 2 2 oe a a a ak ak a ok ok ok ok ok ak ak ak ok / 

void 

main() 

int key; /x recieves Scan & char key code x/ 
1c exit: /x holds val for main loop check x/ 
int old_row; /x Tracker for highlight bar * / 
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int Pow: /x Tracker for highlight bar x / 
int intense; /x intensity attribute value x / 
int beep; /x flag for beep on ‘Q’ keypress x/ 
int eval; 


/x Initialize VIDIO structurex/ 
/ x se / 
/x ALWAYS call at prog start! «/ 


SCP THIEL Je 

/x Turn off the cursor x/ 
Cu_remove(); 

/* clear the screen «/ 
Scrn_clear(); 

/x write the main screen display x/ 
write_screen(); 


/x fill default colors x/ 

Al = mk_attr(BLACK ,WHITE,OFF_INTENSITY,OFF BLINK); 
AZ? = mk_attr(BLUE,WHITE,OFF_INTENSITY ,OFF_BLINK)}: 

A3 = mk_attr(GREEN,WHITE,OFF_INTENSITY,OFF_BLINK); 
Ad = mk attr¢(CYAN,WHITE,OFF_INTENSITY ,OFF_ BLINK): 

AS = mk_attr(RED,WHITE,OFF_INTENSITY ,OFF_BLINK); 

A6 = mk_attr(MAGENTA,WHITE,OFF_INTENSITY,OFF_BLINK) ; 
A7 = mk_attr(BROWN,WHITE,OFF_INTENSITY,OFF_BLINK); 
AS = mk_attr(WHITE,WHITE,OFF_INTENSITY,OFF_BLINK) ; 
AQ = mk_attr(BLACK,WHITE,ON_INTENSITY,OFF_BLINK); 
A10 = mk_attr(BLUE,WHITE,ON_INTENSITY,OFF_BLINK); 
All = mk_attr(GREEN,WHITE,ON_INTENSITY,OFF_BLINK) ; 
Al2 = mk_attr(CYAN,WHITE,ON_INTENSITY,OFF_BLINK) ; 
Al3 = mk_attr(RED,WHITE,ON_INTENSITY,OFF_BLINK); 

Al4 = mk_attr(MAGENTA,WHITE,ON_INTENSITY,OFF_BLINK) ; 
A1l5 = mk_attr(BROWN,WHITE,ON_INTENSITY,OFF_BLINK) ; 
Al6 = mk_attr(WHITE,WHITE,ON_INTENSITY,OFF_BLINK); 


/x Set global attribute intense for inverse video x / 
xinverse = mk_attr(WHITE,BLACK,OFF_INTENSITY ,OFF_BLINK) ; 

/x set global attribute hl_tense for WHITE,WHITE,INTENSE,OFF_BLINK x/ 
hl_tense = mk_attr(WHITE,WHITE,ON_INTENSITY,OFF_BLINK) ; 

/x Set intense text attribute for this window x/ 

intense = mk_attr(RED,WHITE,OFF_INTENSITY,OFF_BLINK) ; 


/x set default data finder display colors x/ 


table_top_attr = mk_attr(WHITE,CYAN,ON_INTENSITY ,OFF_BLINK) ; 
tta_fore = WHITE; 
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tta_back = CYAN; 

tta_flag Ls 

table_top_inv_attr = mk_attr(WHITE,BLUE,OFF_INTENSITY,OFF_BLINK) ; 
ttia_fore = WHITE; 

ttia_back = BLUE; 

ttia_flag = 0; 

window_background = mk_attr(BLACK,WHITE,ON_INTENSITY,OFF_BLINK); 
wb_fore = BLACK; 

wb_back = WHITE; 

wb_flag = 0; 

data_attr = mk_attr(WHITE,CYAN,ON_INTENSITY,OFF_BLINK) ; 
da_fore = WHITE; 

da_back CYAN; 

da_flag = 1; 

resize_attr = mk_attr(BLUE,CYAN,OFF_INTENSITY,OFF_BLINK); 
ra_fore = BLUE; 

ra_back = CYAN; 

ra_flag = 0; 

negative_attr = mk_attr(WHITE,RED,OFF_INTENSITY,OFF_BLINK); 
na_fore = WHITE: 

na_back = RED; 

na_flag = 0; 

mouse_bar_attr = mk_attr(WHITE,BLUE,OFF_INTENSITY,OFF_BLINK); 
mba_fore = WHITE; 


mba_back = BLUE; 

mba_flag = OQ; 

back_wind_bord = mk_attr(BLACK,CYAN,OFF_INTENSITY,OFF_BLINK) ; 
bwb_fore = BLACK; 

bwb_back = CYAN; 

bwb_flag = 0; 


/x check to see if DF500.CGF exists x/ 
| HEHEHE OK 2G a 2 aig oi ake ok ok ak ok ak ok ok 
handle = open(“DF500.CFG”,O_RDWR,S_IREAD|S_IWRITE); 


jf(handle < QO) 
| 
bleep(); 
bleep(); 
bleep(); 
write_cfg(); 

else 
| 
bleep(); 
read(handle,iobuff,128); 
close(handle); 
jobuff_to_data(); 


1o_to_dup(): 

26 3 a fe 2H oH fe a ake of oe fe ake oe of oe af afc 2K oe fe fe 24 oie oe fe afc oh ake oe fe ake oe of fe afc of of fe fe afc ofc ofc ofc ofc ofc ofc fe afc oke ofc afc fe ake ake ofc ae ake ake ake ak ae // 

/ sg shg 2h fe 26246 He 5 a a 2 28 2G GHG oH fg fe ae a8 28g 24g og aE oe oe eg fe fe akg 28g 2g oe oe oe of fe fe afc 28g 24a oe oc ok afc fe afc akc akc akc ake ok ok ak akg akc akg ake ak ak ok / 
/x Initialize main menu window structure and display window x/ 


[shee aie 2 SR RH 2 SR 2 He a Oe 2 a ae a a a Cae a eo ae a og ae oe og ae oe ae fe ako ke oe cae ak as / 


/x Allocate memory and return pointer to structure x/ 
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FIRST = setWind(FIRST,2,0,8,30); 


/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(FIRST,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK) ); 
/*x Set Window Border - top, bot, left, right x/ 
Setbord(FiKsl,s.5 5.5) 

/x Set the top and bottom title «/ 
setTitle(FIRST,” MENU “); 

/* Display window x/ 

StrtWind( FIRST); 

/x Write menu items to window x/ 
wind_write(FIRST,1,1,29,iteml,FIRST->attr); 


if(!mode_toggle) 
wind_write(FIRST,2,1,29,item2,FIRST->attr); 


else 
wind_write(FIRST,2,1,29,item2a,FIRST->attr); 


if(!catalog_toggle) 
wind_write(FIRST,3,1,29,item3,FIRST->attr); 


else 
wind_write(FIRST,3,1,29,item3a,FIRST->attr); 


wind_write(FIRS!T,4,0,31,i1_bar,FIRST->attr); 
wind_write(FIRST,5,1,29,item5,FIRST->attr) ; 
/x Set highlight trackers to start at iteml (row 1) x/ 


row = l; 
old_row = 1; 


/x set default for no beep x/ 

beep = aFALSE; 

/x Set loop condition x/ 

exit = aFALSE; 

/ Hee 2 G2 a HGH AGC A AGH EAC 2 a ACR HE HAC SE HAG AC AC aE G2 aS EC ag ag 2 he go oe ako oe ae a ak a ak / 
/x Main keyboard loop. Selects: tlotus(), tgridl(),x/ 
/* infol(), & quits * / 


/x Up,Down arrow or First letter move highlight barx/ 
1/2 He a EH HAG GH 2 HAG a HEC 3 A CoG 28 a HE IC 24 a a C2 2 ae a Eo fg ag Eo oe oe a ocak ae ak ok ae ae / 


do 


if(!mode_toggle) 
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wind_write(FIRS!,2,1,29,item2d,FIRST->attr); 


else 
wind_write(FIRST,2,1,29,item2a,FIRST->attr); 


if(!catalog_toggle) 
wind_write(FIRST,3,1,29,item3,FIRST->attr) ; 


else 
wind_write(FIRST,3,1,29,item3a,FIRST->attr); 


/x highlight first letter of item x/ 
wind_attr(FIRST,1,2,l1,intense); 
wind_attr(FIRST,2,2,l1,intense): 
wind attrtFIRS!,3,2,1, intense): 
wind_attr(FIRST,5,2,1l,intense); 


wind_attr(FIRST,old_row,1,29,FIRST->attr); /*x off highlight bar x/ 


wind_attr(FIRST,old_row,2,1,intense); /x intense item let) x/ 
wind_attr(FIRST,row,1,29,xinverse); /x on highlight bar x/ 
if (beep) /x YES? beep after * / 
/* scrn update x«/ 
Dieept); /x Yes-warning beep «/ 
beep=aFALSE; /x reset-> no beep x/ 
old_row = row; /x reset OFF tracker x/ 
key = kb_read(); /x get scan & char * / 
Switch(kKey ) /x eval key press * / 
| 
case DOWN_ARROW: 
1f (row==5 ) /x If bottom row * / 
row=1; /x then->top row %/ 
else if (row==3) /x If row 3 % / 
row=5 ; /x then skip to 5 ef 
else /x Otherwise % / 
rowt+ ; /x then down row * / 
break; 
case UP_ARROW: 
1 f (row==5 ) /x If bottom row % / 
row=3 ; /x then skip to 5 * / 
else if(row==1 ) /*x If row 3 % / 
row=5; /x then->bot row * / 
else /x Otherwise * / 
rows /x then up row x / 
break; 
case ENTER: 
Switch(row) /x Eval selection * / 
| 
case 1: /w display colors x / 
draw_df(); 


display_colors({):; 
remove_df(); 
break; 


case 2: 
if (mode_togg]e==0) 
mode_toggle=1; 
else 
mode_togg|le=0; 
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break; 


case 3: 
if(catalog_toggle==0) 
catalog_toggle=l; 
else 
catalog_toggle=0; 
break; 


case 5: 
eval = infol(); 
Switch(eval) 
{ 


case K_Y: 
case K_y: 
write_cfg(); 
exit=aTlRUE; 
break; 
case K_N: 
case K_n: 
exit=alRUE; 
break; 
} 
break; 
} 
break; 
default: /x Check ascii val x/ 
key &=0x00ff; /x mask Scan code xe / 
Switch(key ) /x which key? * / 
{ 
case ‘d’: /x L->lotus choice x/ 
case ‘D’: 
row=1; 
break; 
case ‘v’: /*x G->grid choice x / 
case ‘V’ 
row=2; 
break; 
Gase “c's /x S->simple demo  / 
Case *U": 
row=3 ; 
break; 
case ‘q’: /* Q->quit wind x / 
case ‘Q’: 
row=5; 
beep=aTRUE; /* set for beep * / 
break; 
} 
break; 


i) while (lexit): 


/*x remove window and restore original screen x/ 


wind_remove(FIRST); 
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/x turn on the cursor. x/ 


cu_display(); 
scrn_clear(); 
} 


/ x 
* draw data finder mini display 
% / 


void 

draw_df() 

{ 

draw_table_top(); 
draw_window_border(); 
draw_mouse_bar(); 
draw_column_name(); 
draw_all_data(); 
draw_window_back(); 
draw_back_wind_bord(); 
} 


void 

remove_df() 

{ 

im AtLrl oun: 

attrl = mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK); 

for(count=14-4; count<23; count++) 
scrn_write(count,33,44,datl/8,attrl); 

} 


/* 
* Draw the main color portion of display 
x / 


void 

draw_table_top() 

{ 

scrn_write(14-4,33,44,table_topl,table_top_attr); 
scrn_write(15-4,33+6,44-6,table_top2,table_top_attr); 
scrn_write(15-4,33,8,table_top3,table_top_inv_attr) ; 
draw_window_border(); 

draw_all_data(); 
scrn_write(23-4,33+11,.27.,9rid_era,tablé_top_attr): 
scrn_write(24-4,33+11,22,grid_era,table_top_attr); 

/x scrn_write(25-4,33+11,22,grid_era,table_top_attr); x/ 
} 


void 

draw_window_border() 

{ 

int count; 

scrn_write(l6-4,33,44,data_borderl,table_top_attr) ; 

for(count=17-4; count<22-4; count+t+) 
Scrn_write(count,33,1,datl86,table_top_attr); 

scrn_write(22-4,33,1,dat200,table_top_attr); 

scrn_write(1/-4,33+43,1,datl186,table_top_attr); 

scrn_write(22-4,33+43,1,dat188,table_top_attr); 

scrn_write(22-4,33+42,1,dat205,table_top_attr); 

} 
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void 

draw_all_data() 
scrn_write(18-4,33+1,8,coll_rl,table_top_attr); 
scri_write(19-4,3341,8,coll_f2,tablé_top_attr); 
scern_writet(20-4,3341,8,coll_r3,table_top_attr): 
scrn_write(21-4,334+1,38,coll_r4,table_top_attr): 


sern_wri bet 18-4..33+10,13,col2_pl,table_top_attr): 
sernwri tec 1o-4,33+10, 13, col2_f2, tabletop attr): 
scrn_write(20-4,33+10,13,col2_r3,negative_attr); 
scrn_write(21-4,334+10,13,col2_r4,table_top_attr): 


scrn_write(18-4,33+24,19,col3_rl,table_top_attr); 
scrn_write(19-4,33+24,19,col3_r2,table_top_attr); 
scrn_write(20-4,33424,19,co0l3.r3,table_top_attr): 
sern_wri tet2i-4,33+24, 19,¢013_f3,table_top_attr}: 


void 
draw_mouse_bar() 
| 
ink count: 
scrn_write(1/7-4,33+9,1,dat203,mouse_bar_attr); 
scrn_write(17-4,33+23,1,dat203,mouse_bar_attr); 
for(count=18-4: count<22-4: count++) 

| 

Scrn_write(count, 33+9,1,dat186,mouse_bar_attr); 

scrn_write(count,33+23,1,datl186,mouse_bar_attr); 
scrn_write(22-4,33+1,1,datl7,mouse_bar_attr); 
scrn_write(22-4,33+2,39,datl178,mouse_bar_attr); 
scrn_wri te(Z2-4,334+3138,1,datl6, mouse. bar_attr >): 
scrn_write(1/7-4,33+43,1,dat30,mouse_bar_attr) ; 
scrn_write(18-4,33+43,1,datl/78,mouse_bar_attr); 
scrn_write(19-4,33+43,1,datl178,mouse_bar_attr); 
Scrn_write(20-4,33+43,1,datl178,mouse_bar_attr); 
scrn_wri te(271-4,33+43,1,dat3l,mouse_bar_attr): 
draw_column_name(); 


void 

draw_column_name() 

{ 

scrn_write(1/7-4,334+1,8,coll_name,mouse_bar_attr); 
scrn_write(1/7-4,33+10,13,col2_name,mouse_bar_attr); 
scrn_write(1/7-4,33+24,19,col3_name,mouse_bar_attr); 
} 


void 

draw_window_back() 

| 
scrn_write(23-4,33,10,grid_era,window_background) ; 
scrn_write(24-4,33,10,grid_era,window_background) ; 
scrn_write(25-4,33,10,grid_era,window_background) ; 
scrn_write(23-4,67,10,grid_era,window_background) ; 
scrn_write(24-4,67,10,grid_era,window_background) ; 
scrn_write(25-4,67,10,grid_era,window_background) ; 
scrn_write(26-4,33,44,grid_era,window_background) ; 
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void 


draw_back_wind_bord() 


scrn wri tet 23- 
scrn_write(24- 
scern_write(25- 


sern_wri tet 2s 


scrn_write(24- 
scrn_wri tet 25- 
scrn_write(25- 


void 
draw_resize() 
| 


scrn_write(l19, 


scrn_write(2l 
scrn_write(19 
scrn_write(2l 
scrn_write(19 


scrn_write(2l, 


scrn_write(20 


scrn_write(20, 


4,33+10,1,datl86,back_wind_bord) ; 
4, 33+10,1,dat186,back_wind_bord); 
4, 33+10,1,dat200,back_wind_bord) ; 
-4,66,1,dat186,back_wind_bord); 
4,66,1,datl86,back_wind_bord) ; 
4,66,1,datl188,back_wind_bord) ; 
4A, 33+11,22,dat205,back_wind_bord) ; 


33+1,1,dat218,resize_attr): 
,33t1,1,datl192,resize_attr); 
~oor?, 1 deatlo) resize attr sy: 
,jot7,1,dat217,resize_attr): 
,sot?e, 5,datl96, resize_attr): 
33+2,5,dat196,resize_attr); 
,dotrl, | datly9, resize attr): 
33+7,1,datl1/79,resize_attr); 


| HEH HK a 2K oi 2g 2 oc oi of akc i ok aks okt ok ok ok a ok ok KK 
*x DF500.CFG file data 
*x transfer routines 


* / 


void 


data_to_iobuff() 


| 


char «*srce,xdest; 


jobuffl0] = (char)table_top_attr; 
jobuffl[1] = (char)tta_fore; 
jobuff[2] = (char)tta_back; 
jobuffl3] = (char)tta_flag; 
jobuffl4] = (char)table_top_inv_attr; 
jobuff{[5] = (char)ttia_fore; 
jobuffl6] = (char)ttia_back; 
jobuffl7] = (char)ttia_flag; 
jobuffl8] = (char)window_background; 
iobuffl9J] = (char)wb_fore; 
jobuff£10] = (char)wb_back; 
jobuffl11] = (char)wb_flag; 
jobuffl12] = (char)resize_attr; 
jobufff13] = (char)ra_fore; 
jobufffl14] = (char)ra_back; 
jobuffl15] = (char)ra_flag; 
jobuffl16] = (char)negative_attr; 
jobuffl17] = (char)na_fore; 
jobuffl18] = (char)na_back; 
iobuff{l19] = (char)na_flag; 
iobuffL20] = (char)data_attr; 
jobuffl21] = (char)da_fore; 
jobuff[22] = (char)da_back; 
10bUTTLZ3] = (cnhar)da_Tlag: 


A commercial quality setup program 


185 


6-8 Continued. 


iobuf fl 24 ] 
jobuff[25] 
iobuf f[26 ] 


1obuTTLe/ | = 
iobuff[28] = 


iobuff[29] 
iobuffl30] 
iobuff[3l1] 


iobuf f[32] 
iobuffl33] 


iobuffl34] = 


TObUTT (35) = 


jobuffl36] 
iobuff[37] 
jobuf f[38] 
jobuff[39] 
iobuf fL40 J 
jobuffl41 ] 
jobuff[42] 
jobuf fL43 ] 
jobuf fl 44 ] 
jobuff[45] 


iobuffl46] = 


1obuffl47 ] 
jobuffl48 ] 
jobuffl49 | 
jobuff[50] 


jobuff[51] = 


jobuf f[52] 
jobuf f[53 ] 


jobuff[54] = 


iobuffl55] 
iobuf fl56] 
fobuTTL oy] 
iobuffl58 J 


jobuffl59] = 


jobuff[60] 
jobuf f[61] 


jobuffl62] = 
jobuff[63] = 


header. 
header. 
header. 
header. 
header. 
header. 
header. 
header. 
header. 


dest 
srce 


(char)mouse_bar_attr; 
(char)mba_fore; 
(char)mba_back; 
(char)mba_flag; 
(char)back_wind_bord; 
(char) bwb_fore; 
(char) bwb_back; 
(char) bwb_flag; 


(char)grid_item; 
(char)old_grid_item; 
(char)grid_iteml; 
(char)old_grid_iteml; 
(char)grid_item2; /x 
(char)old_grid_item2; 
(char)grid_item3; /x 
(char)old_grid_item3; 
(char)grid_item4; /x 
(char)old_grid_item4; 
(char)grid_item5; /x 
(char)old_grid_itemd; 
(char)grid_item6; /x 
(char)old_grid_item6; 
(char)grid_item/7; /x 
(char)old_grid_item/; 
(char)grid_item8; /x 
(char)old_grid_items; 
(char)grid_item9; /x 
(char)old_grid_item9; 
(char)grid_itemlo; 
(char)old_grid_itemlo; 
(char)grid_itemll; /x 
(char)old_grid_itemll; 
(char)grid_iteml2; /x 
(char)old_grid_iteml2; 
(char)grid_iteml3; /x 
(char)old_grid_iteml3; 
(char)grid_iteml4; /x 
(char)old_grid_iteml4; 
(char )mode_toggle; 
(char)catalog_toggle; 


(char)mode_toggl 


&iobuffl128]; 
(char *) &header; 


memcpy(dest,srce,sizeof (header) ); 


void 


jobuff_to_data() 
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item 


item 


item 


item 


item 


item 


item 


item 


item 


item 


item 


item 


Cs 


/x item selected 


selected 
selected 
selected 
selected 
selected 
selected 
selected 


selected 


/x item selected 


selected 
selected 
selected 


selected 


main_color_attrib = (char)table_top_attr; 
maininverse_attrib = (charitable top_inv_attr: 
background_window_attrib = (char)window_background; 
negative_value_attrib = (char)negative_attr; 
resize_box_attrib = (char)resize_attr; 

mouse_bar_attrib = (char)mouse_bar_attr; 
passive_window_border_attrib = (char)back_wind_bord; 
mode_flag = 


catalog_flag = (char)catalog_toggle; 


/*x item selected value 


value 
value 
value 
value 
value 
value 
value 
value 
value 
value 
value 
value 
value 


value 


¢ / 


*/ 
a / 
x / 
a / 
a / 
a / 
x / 
=} 
x / 
x / 
a / 
at / 
if 


‘ / 
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| 

table_top_attr = (int)iobuff[0]; 
tta_fore (int)iobufftl): 
tta_back (int)iobuffl2]; 
tta_flag = (int)iobuffl3]; 


table_top_inv_attr = (int)iobuff[4]; 


ttia_fore = (int)iobuffl5]; 
ttia_back (int)iobuf flo]; 
ttia_flag (int)iobuffLl7]J; 
window_background = (int)iobuff[8]; 


wb fore = (int)iobuff[9]: 
wb_back = (int)iobuff[l10]; 
wb_flag = (int)iobuff{ll1l]; 


resize_attr = (int)iobuff{1l2]; 


ra_fore = (int)iobuff{13]; 
ra_back = (intliobuTfi[i4]: 
ra_flag = (int)iobuff{15]; 


negative_attr = (int)iobuff[16]; 


na_fore = (int)iobuff{l17]; 
na_back = (int)iobuff{18]; 
na_flag = (int)iobuff[l19]; 
data_attr = (int)iobuff{20]; 
da_fore = (int)iobuff{21]; 
da_back = (int)iobuff[22]; 
da_flag = (int)iobuff[23]; 


mouse_bar_attr = (int)iobuff[24]; 


mba_fore = (int)iobuff{25]; 
mba_back = (int)iobuff[{26]; 
mba_flag = (int)iobuff[27]; 
back_wind_bord = (int)iobuff[28]; 
bwb_fore = (int)iobuff[29]; 
bwb_back = (int)iobuff[30]; 
bwb_flag = (int)iobuff{l31]; 


grid_item = (int)iobuff[32]; 
old_grid_item = (int)iobuff[33]; 
grid_iteml = (int)iobuff[34]; 
old_grid_iteml = (int)iobuff[35]; 
grid_item2 = (int)iobuff[36]; 
old_grid_item2 = (int)iobuff[36]; 
grid_item3 = (int)iobuff[38]; 
old_grid_item3 = (int)iobuff{l39]; 
grid_item4 = (int)iobuff{(40]; 
old_grid_item4 = (int)iobuff[41]; 
grid_item5 = (int)iobuffl42]; 
old_grid_itemS = (int)iobuff[43]; 
grid_item6 = (int)iobuff[44]; 
old_grid_item6 = (int)iobuff[45]; 
grid_item7 = (int)iobuff[46]; 
old_grid_item/7 = (int)iobuff[4/7]; 
grid_item8 = (int)iobuff[48]; 
old_grid_item8 = (int)iobuffl49]; 
grid_item9 = (int)iobuff[50]; 
old_grid_item9 = (int)iobuff{[51]; 
grid_iteml0O = (int)iobuffl52]; 
old_grid_iteml0O = (int)iobuff[53]; 
grid_itemll = (int)iobuffl541; 
old_grid_itemll = (int)iobuff[54]; 
grid_iteml2 = (int)iobuff[l56]; 
old_grid_iteml2 = (int)iobuffL5/]; 
grid_iteml3 = (int)iobuff[58]; 
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old_grid_iteml3 = (int)iobuff[59]; 
grid_iteml4 = (int)iobuff[60]; 
old_grid_iteml4 = (int)iobuff[61]; 
mode_toggle = (int)iobuff[62]; 
catalog_toggle = (int)iobuff[63]; 


void 

write_cfg() 

| 

/x create new DF500.CFG file x/ 

/ se ok oi 2 oi ok ok 3k ok ok aK ok ok aK ok ok a a a a RR RRR RRR RRR RRR REE 
data_to_iobuTff{): 

handle = open(“DF500.CFG”,O_CREAT|O_RDWR,S_IREAD|S_IWRITE); 
write(handle,iobuff,256); 

close(handle); 

oe 3K 2K 2 fe aie 2 fe of fe oe ofe ake fe ake 2g ae ake fe ake ofc akc oe akc 2 ake ok akc ok ok ok ok ok ok ok ok / 


void 

(Oto cup} 

char «*srce,x«dest; 

srce = iobuff; 

dest = dupbuff; 
memcpy(dest,srce,256); 


void 

dup to_i0t) 

char «*srce,x«dest; 

srce = dupbuff; 

dest = iobuff; 
memcpy(dest,srce,256) ; 
iobuff_to_data(); 


6-8 Ends. 


6-9 The source code listing to DFINST1.C. 


/ x 
* DFINST1.C 
2 / 


| KAKI KKK KR EK 
x Windows for Main color set 
* / 


int 

tgridl() 

int key; /* Scan and char value * / 
int exit; /«* val for loop cond chk x/ 


// she shes 2 2 a 2 a ae a a CE A a AC a a Ee a a oe ae a a ae a a 2 af ae a oe ae of Ko a oo oe ok oe oko oe oko 2k ok aK ok oR Ka ok / 


/x Initialize grid menu window structure and display window x/ 
/ shee Re G2 EG AE AG GAG a AE AG ag a EH a EE EC a EC a aK AE a a oC ae a eo ae ao ae of a ae oko ae ok ook ok ok ok ok ok ae aks / 
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if(larid flag) 
| 


/x ensure window initialization bypass x/ 


grid_flag=1; 


/x Allocate memory and return pointer to structure x/ 


GRID = setWind(GRID,2,33,8,/77); 


/x Set Window Attr - Fore,Back,Intensity,Blink x/ 


setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK) ); 


/x Set Window Border x/ 


setBord(GRID,D_D_D_D); 


/x Set the top and bottom title - 0 set no bottom title x/ 


setTitle(GRID,” Change Table Top “); 


/x Display window «/ 


strtWind( GRID) ; 


else 


wind_display(GRID); 


/x Write name and exit messages x/ 


/x set loop condition «/ 


exit=aFALSE; 


/x Write grid entries bar x/ 


wind_write(GRID,1, 
wind_write(GRID,2, 


wind _write(GRID,4, 


42,grid_era,GRID->attr); 
4? gridl,GRID-2attr): 


4?,9gridl,GRiD->attr); 


L, 

1, 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 

L. 

1, 


wind_write(GRID,5, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 


42,grid_era,GRID->attr) ; 


2 ,4,1,Al): 
2,9,1,A¢): 
2, 04,149): 
Oi de lah): 
2,04,2,A5): 
2,29,1,A6) 
oe Sa ee 
239,180): 
A AL ABD : 
49,1 ,A10) 
A 14.1.A1]3 
4.191, ,A12) 
t2% 1,813) 
A 29 ,1,414) 
A, 34, 1,415) 
4,39,1,A16) 
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do 

{ 
erase_box(old_grid_item) ; 
draw_box(grid_item); 
old_grid_item = grid_item; 
update_tta(grid_item) ; 
draw_table_top(); 
key = kb_read(); 
Switch(key ) 

case RIGHT_ARROW: 


/# IF rt col-Smv to left col ELSE=>mv Ft #/ 


if (grid_item==7 ) 
grid_item=0; 

else if(grid_item==15) 
grid_item=8; 

else 
grid_item++; 

break; 


case LEFT_ARROW: 

if (grid_item==0 ) 
grid_item=/ ; 

else if(grid_item==8 ) 
grid_item=15; 

else 
grid 1tem-=; 

break; 


case DOWN_ARROW: 


/x IF bottom row->mv to top row ELSE->mv down x/ 


if (grid_item<=7 ) 
grid_item += 8; 
else 
grid_item -= 8; 
break; 


case UP_ARROW: 
js IF tap FOW-A>mY To bottom row ELSE->mv up #/ 


if(grid_item >=8) 
grid_item -= 8; 
else 
grid_item += 8; 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} while(!exit); 


/x Remove Lotus Window x/ 


wind_remove(GRID); 
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/x return selected item x/ 


return(grid_item) ; 
} 


int 

tgrid2() 

{ 

int key; /* scan and char value % / 
int exit: /* val for loop ,cond chk #/ 


[she she He a AG RE AG a Eo a AG 2 AG 2 a AE a Eo a a a a EH ae aE AC 2 aC G2 ag Go he ga ae a oc a oe ae ak a / 
/x Initialize grid menu window structure and display window x/ 
[fe oie 2 eo a A a a a A a A a AE a EAC OR HE AG a AC a a HE a Ee aE he eGo eC a fe G2 he og oC ae ae a ae ak: / 
tl igrid_f lag) 

a ensure window initialization bypass x/ 

grid_flag=1; 

/x Allocate memory and return pointer to structure x/ 

GRID = setWind(GRID,2,33,8,77); 

/x Set Window Attr - Fore,Back,Intensity,Blink x/ 

setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK)); 

/x Set Window Border x/ 

setBord(GRID,D_D_D_D); 

/x Set the top and bottom title - 0 set no bottom title x/ 

setTitle(GRID,” Change Table Top “); 


/x Display window x/ 


strtWind(GRID) ; 
} 


else 
wind_display(GRID); 


/* set loop condition x/ 


exit=aFALSE; 


/x Write grid entries bar x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr) ; 
wind_write(GRID,2,1,42,gridl,GRID->attr); 
wind_write(GRID,3,1,42,grid_era,GRID->attr) ; 
wind_write(GRID,4,1,42,grid_era,GRID->attr); 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 
wind_attr(GRID,2,4,1,Al); 
wind_attr(GRID,2,9,1,A2); 

wind _attrCGRID,2,14,1,A3); 
wind_attr(GRID,2,19,1,A4); 
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wind_attr(GRID,2,24,1,A5); 
wind_attr(GRID,2,29,1,A6); 
wind_attr(GRI0,2,34,1,A7): 
wind_attr(GRID,2,39,1,A8); 


do 
erase_box(old_grid_iteml); 
draw_box(grid_iteml) ; 
old_grid_iteml = grid_iteml; 
update_tta_back(grid_iteml ) ; 
draw_table_top(); 
key = kb_read(); 
Switch(key ) 
case RIGHT_ARROW: 
ie IF pt. eol->mv to left col ELSE-dmy rt af 


if(grid_iteml==7 ) 
grid_iteml=0; 
else 
grid_iteml++; 
break; 


case LEFT_ARROW: 
if (grid_iteml==0 ) 
grid_iteml=7; 
else 
origi teml--3 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} 
} while(!lexit); 


/x Remove Lotus Window x/ 
wind_remove(GRID); 
/x return selected item x/ 


return(grid_iteml]) ; 


/x* 
* Windows for Mouse Bar 
 / 


int 

tgrid3() 

int key; /* scan and char value x / 
int exit: /# val for loop cond chk #/ 
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// hes 2 3 2 2 2 2 2K a EE EA GA AC HAC ACG Co G2 CS 2 So ao a a ac ok a oko oko ok ok ok ak ok ak ok ake ak ake / 
/*x Initialize grid menu window structure and display window. #/ 
[Re SRR A HR RG HR AG EG AG AC 2 A AGA a EC EC ae Go ae aC a a a ak a a ae aco ae ak oe ok ok ake ok ok ak ake ok / 
if(!grid_flag) 

- ensure window initialization bypass x/ 

grid_flag=1; 

/x Allocate memory and return pointer to structure x/ 

GRID = satWind{ GRID, 2,33,8,77); 

/x Set Window Attr - Fore,Back,Intensity,Blink x/ 

setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK) ); 

/x Set Window Border x/ 

setBord(GRID,D_D_D_D); 

/*x Set the top and bottom title - 0 set no bottom title x/ 

setTitle(GRID,” Change Table Top “); 


/x Display window x/ 


StrtWind( GRID); 
} 


else 
wind_display(GRID); 


/x set loop condition x/ 
exit=aFALSE; 
/x Write grid entries bar x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr); 
wind_write(GRID,2,1,42,g0ridl1,GRID->attr); 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,grid1,GRID->attr): 
wind_write(GRID,5,1,42,grid_era,GRID->attr):; 


wind_attr(GRID,2,4,1,Al); 

wit _attr(GRip,2,9,1,A2)-< 

wind_attr(GRID,2,14,1,A3): 
wind_attr(GRID,2,19,1,A4); 
wind_attr(GRID,2,24,1,A5); 
wind_attr(GRID,2,29,1,A6); 
wind_attr(GRID,2,34,1,A/7); 
wind_attr(GRID,2,39,1,A8); 
wind_attr(GRID,4,4,1,A9); 

wind_attr(GRID,4,9,1,Al10); 
wind_attr(GRID,4,14,1,Al1l1); 
wind_attr(GRID,4,19,1,Al12); 
wind_attr(GRiD,4,24,1,A13): 
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wind_attr(GRID,4,29,1,Al14); 
wind_attr(GRID,4,34,1,Al15); 
wind_attr(GRID,4,39,1,Al16); 


do 
| 
erase_box(old_grid_item2); 
draw_box(grid_item2) ; 
old_grid_item2 = grid_item2; 
update_mba(grid_item2) ; 
draw_mouse_bar(); 


key = kb_read(); 


Switch(kKey ) 
case RIGHT ARROW: 
fe IF Ft col-dmy to left €01 ELSE->mv Pt e/ 


if(grid_item2==7 ) 
grid_item2=0; 

else if(grid_item2==15) 
grid_item2=8; 

else 
grid_iten2er: 

break; 


case LEFT ARROW: 

if(grid_item2==0) 
grid_item2=/7; 

else if(grid_item2==8 ) 
grid_item2=15; 

else 
grid_item2==-; 

break; 


case DOWN_ARROW: 
/x IF bottom row->mv to top row ELSE->mv down x/ 


if(grid_item2<=7) 
grid_item2 += 8; 
else 
grid_item2 -= 8; 
break; 


case UP_ARROW: 
/*x IF top row->mv to bottom row ELSE->mv up x/ 


if(grid_item2 >=8) 
grid_item2 -= 8; 
else 
grid_item2 += 8; 
break; 


case ENTER: 

Case ESC: 
exit=alRUE; 
break; 
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} 
} while(!exit); 


/x Remove Lotus Window x/ 
wind _remove(GRID); 
/x return selected item x/ 


return(grid_item2); 


int 
tgrid4() 
Pa key; /*x Scan and char value * / 
int @xit; /*« wal for loap cond chk #/ 
[2 a a 3 ae ae a 9 A 2 a a a AG 2 a AC 2 2 HG HAC 2 2 a EHC a a IE a 2 ae a GC 2 a aE C2 ae oe fg Go ae hg a a a ae ak / 
/x Initialize grid menu window structure and display window” x/ 
[2 2 a He a SK EC A a 2 a A HH og ae a a ae a AGH 2 a OE 2g a HE oC oe fe 91 a oC a og a eo oe he fe go a he he ea a ake ak / 
if(!grid_flag) 
fs ensure window initialization bypass x/ 
grid_flag=l; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind(GR1I0,2,33,8,77); 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr( BLACK ,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/*x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
SetTitle(GRID,” Change Table Top “); 


/x Display window x/ 


strtWind( GRID); 


else 
wind_display(GRID); 


/x set loop condition x/ 

exi t=-aFALse; 

/x Write grid entries bar x/ 
wind_write(GRID,1,1,42,grid_era,GRID->attr); 


wind_write(GRID,2,1,42,grid1,GRID->attr); 
wind_write(GRID,3,1,42,grid_era,GRID->attr) ; 
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wind_write(GRID,4,1,42,grid_era,GRID->attr); 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 


wind_attr(GRID,2,4,1,Al); 
wind_attr(GRID,2,9,1,A2); 
wind_attr(GRID,2,14,1,A3); 
wind_attr(GRID,2,19,1,A4); 
Wind attr(GRID-,?,24,1,A5): 
wind_attr(GRID,2,29,1,A6); 
wind_attr(GRID,2,34,1,A7):;: 
wind_attr(GRID,2,39,1,A8):;: 


do 
{ 
erase_box(old_grid_item3) ; 
draw_box(grid_item3) ; 
old_grid_item3 = grid_item3; 
update_mba_back(grid_item3) ; 
draw_mouse_bar(); 


key = kb_read(); 


Switch(key ) 
{ 
case RIGHT_ARROW: 
/x IF rt col->mv to left col ELSE->mv rt #/ 


if (grid_item3==7 ) 
grid_item3=0; 
else 
grid_item3++; 
break; 


case LEFT_ARROW: 
if (grid_item3==0 ) 
grid_item3=/ ; 
else 
grid_item3--; 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} 
} while(!exit); 


/x Remove Lotus Window x/ 
wind_remove(GRID); 
/x return selected item x/ 


return(grid_item3); 
} 


/ x 


* Windows for Mouse Bar 
x / 
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int 

tgrid5() 

| 

int key; /* scan and char value x / 

int exit; /* val for loop cond chk x/ 

/ she shes af a 3 2h 2 2 22 2 2 2 a af ag a a ae a 2 28216 2 af af af a ag a ae ak ag a a1 a a ae a ae ag ae a a a a fe ag ae ag ag ag ag fe fe a fe ak ak ac ak ake / 


/x Initialize grid menu window structure and display window” x/ 
[she 63K CHG HE AG A a 2 2G IE AE HG GG a 2 4G CIE HE HE a Efe ae a8 28g 2G 2G AG HG ge fe a 28g 2821 2G oie oe oe ae fe af akc 2k akc 2 2c ak ae fe akc ake akc ake ok ok ok / 


if(!grid_flag) 
a ensure window initialization bypass x/ 
grid_flag=1; 
/x Allocate memory and return pointer to structure / 
GRID = setWind(GRID,2,33,8,77); 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr( BLACK ,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 
/x Display window x/ 


StrtWind(GRID);: 


else 
wind_display(GRID); 


/x set loop condition x/ 
exit=aFALSE; 
/x Write grid entries bar x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr); 
wind_write(GRID,2,1,42,gridl1,GRID->attr); 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,grid1,GRID->attr): 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 


wind _atir(GRID,2,4,1,Al): 
wind_attr(GRID,2,9,1,A2); 
wi ta _attriGRiD,2,14,1,A3a): 
wind_attr(GRID,2,19,1,A4); 
wind_attr(GRID,2,24,1,A5): 
wind_attr(GRID,2,29,1,A6): 
wind_attr(GRID,2,34,1,A7); 
wind_attr(GRID,2,39,1,A8); 
wind attr{GRID,4,4,1,A9); 
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6-9 Continued. 
wind_attr(GRID,4,9,1,A10); 


wind_attr(GRID,4,14,1,All1); 
wind_attr(GRID,4,19,1,Al12); 
wind_attr(GRID,4,24,1,A13); 
wind_attr(GRID,4,29,1,A14); 
wind_attr(GRID,4,34,1,A15); 
wind_attr(GRID,4,39,1,A16); 


do 
{ 
erase _box(old_grid_item4); 
draw_box(grid_item4) ; 
old_grid_item4 = grid_item4; 
update_na(grid_item4) ; 
draw_all_data(); 


key = kb_read(); 


Switch(key) 
{ 
case RIGHT_ARROW: 
/e IF fet e¢ol->mv to left col ELSE+>mv rt a/ 


if (grid_item4==7 ) 
grid_item4=0; 

else if(grid_item4==15) 
grid_item4=8; 

else 
grid_item4++; 

break; 


case LEFT_ARROW: 

if(grid_item4==0 ) 
grid_item4=7; 

else if(grid_item4==8 ) 
grid_item4=15; 

else 
grid _Tipem4--; 

break; 


case DOWN_ARROW: 
/x IF bottom row->mv to top row ELSE->mv down x/ 


if (grid_item4<=7 ) 
grid_item4 += 8; 
else 
grid_item4 -= 8; 
break; 


case UP_ARROW: 
/x IF top row->mv to bottom row ELSE->mv up #/ 


if(grid_item4 >=8) 
grid_item4 -= 8; 
else 
grid_item4 += 8; 
break; 


case ENTER: 
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case ESC: 
exit=alRUE; 
break; 
} 
} while(!exit); 
/x Remove Lotus Window x/ 
wind_remove(GRID); 
/x return selected item x/ 


return(grid_item4) ; 
} 


int 
tgrid6() 
i key; /* scan and char value * / 
int exit; /«* val for loop cond chk x/ 
ies ok 2 a 2 a a a OH a Ea AC HE a AG EH a AG 2 EE OE AC EH aE C2 G2 GH a G2 ea ag ga ae a ae a ae / 
/x Initialize grid menu window structure and display window. x/ 
[SR AE EH HE a HE a EG a A HEC 9 ae a EC 2S aC Ge ae a Ea ae fe a ae he ak go a he ak ok a ok ok ak ak / 
if(!grid_flag) 
ie ensure window initialization bypass x/ 
grid_flag=l; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind(GRID,2,33,8,77); 
/x Set Window Attr - Fore,Back,Intensity,Blink «/ 
setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/*x Set Window Border #/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 


/x Display window x/ 


strtWind(GRID); 
} 


else 
wind_display(GRID); 


/x set loop condition #/ 
exit=aFALSE; 


/x Write grid entries bar x/ 
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6-9 Continued. 


wind_write(GRID,1,1,42,grid_era,GRID->attr); 
wind_write(GRID,2,1,42,grid1,GRID->attr); 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,grid_era,GRID->attr) ; 
wind_write(GRID,5,1,42,grid_era,GRID->attr) ; 
wind attr(GRID,2,4,1,AL): 
wind_attr(GRID,2,9,1,A2); 
wind_attr(GRID,2,14,1,A3): 
wind_attr(GRID,2,19,1,A4); 
wind_attr(GRID,2,24,1,A5); 
wind_attr(GRID,2,29,1,A6); 

wind attr(GRID,2,34,1,87)% 
wind_attr(GRID,2,39,1,A8); 


do 
erase _box(old_grid_item)) ; 
draw_box(grid_item)) ; 
old_grid_item5 = grid_item5; 
update_na_back(grid_item)) ; 
draw_all_data(); 


key = kb_read(); 


Switch(key ) 
case RIGHT_ARROW: 
je IF ft Col->myv to left col ELSE->mv rt «/ 


if(grid_item5==7 ) 
grid_item5=0; 
else 
drid_items++: 
break; 


case LEFT_ARROW: 
if(grid_item5==0 ) 
grid_items=/; 
else 
grid_items--: 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} 
} while(lexit); 
/x Remove Lotus Window x/ 
wind _remove(GRID); 
/x return selected item x/ 


return(grid_item)) ; 


/ x 
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* Windows for Mouse Bar 
* / 

int 

torid/{) 

{ 


int key; /*x Scan and char value * / 
int exit; /x* val for loop cond chk x/ 


[eA SR RH RAR oR aR AR oe a 9 a 2 oR oe 2 HR 2 oo ae 2 a aR oe oo oR aK a oe ok aR oR oR aK oR oR ok oko / 


/x Initialize grid menu window structure and display window” x/ 
/ se se sf 3 2 3 of 3 2 3 2 a 3 2 a 2 ae a 9K aK a 91 a a aK aK 9K 9K Ko aK a ok 2k a ok aK 9K aK a aK ok aK ak ok a ak 9K ak ak ak oe ok ok ok ak ak akg ak ok ak ak aks / 


if(!grid_flag) 
2 ensure window initialization bypass x/ 
grid_flag=1; 
/* Allocate memory and return pointer to structure x/ 
GRID = setWind(GRID,2,33,8,77); 
/*x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr( BLACK ,WHITE,OFF_INTENSITY ,OFF_BLINK)); 
/*x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 


/x Display window x/ 


StrtWind(GRID); 
} 


else 
wind_display(GRID); 


/x set loop condition #/ 
exit=aFALSE; 
/x Write grid entries bar x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr) ; 
wind_write(GRID,2,1,42,grid1,GRID->attr); 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,grid1,GRID->attr):; 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 
wind_attr(GRID,2,4,1,Al); 
wind_attrPcGRID,2,9,1,A2): 
wind_attr(GRID,2,14,1,A3); 
wind_attr(GRID,2,19,1,A4): 
wind_attriGRio,2,24,1,A5): 
wind_attr(GRID,2,29,1,A6): 
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wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 


a 
ae 
4, 
4, 
wind_attr(GRID,4,14, 
4 
4 
_ 
4 
a 


34.1, Ag}: 
39 .1,A8)2 
4,1,A9); 


wind_attr(GRID,4,9,1,A10); 

LeAli es 
wind_attr(GRID,4,19,1,Al2); 
wind_attr(GRID,4,24,1,A13); 
wind_attr(GRID,4,29,1,A14); 
Wind d@ttr(GRID,4,34,1.A15): 
wind_attr(GRID,4,39,1,A16); 


do 


erase_box(old_grid_item6) ; 
draw_box(grid_item6) ; 
old_grid_item6 = grid_item6; 
update_wb(grid_item6) ; 
draw_window_back(); 


key = kb_read(); 


Switch(key ) 
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{ 
case RIGHT _ARROW: 
/e IF rt col->myv to left col ELSE->mv rt «/ 


if (grid_item6==7 ) 
grid_item6=0; 

else if(grid_item6==15) 
grid_item6=8 ; 

else 
grid_item6++; 

break; 


case LEFT_ARROW: 

if(grid_item6==0 ) 
grid_item6=/ ; 

else if(grid_item6==8 ) 
grid_item6=15; 

else 
grid_item6--; 

break; 


case DOWN_ARROW: 
/x IF bottom row->mv to top row ELSE->mv down x/ 


if (grid_item6<=7 ) 
grid_item6 += 8; 
else 
grid_itemo -= 8; 
break; 


case UP_ARROW: 
/x IF top row->mv to bottom row ELSE->mv up x/ 


if(grid_item6 >=8) 
grid_item6o -= 8; 
else 
grid_item6 += 8; 
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break; 
case ENTER: 
case ESL: 
exit=alRUE; 
break; 
} while(!exit); 
/x Remove Lotus Window x/ 
wind _remove(GRID); 
/x return selected item x/ 


return(grid_item6) ; 


tnt 
tgrid8() 
int key; /x scan and char value ~— x/ 
init Exit: /# val for loop cond chk. «/ 
/x Initialize grid menu window structure and display window x/ 
ifClarid_flag) 
- ensure window initialization bypass x/ 
grid_flag=1; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind(GRID,2,33,8,77); 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/*x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 


/x Display window x/ 


StrtWind(GRID); 


else 
wind_display(GRID) ; 


/*x set loop condition x/ 


exit=aFALSE; 
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6-9 Continued. 
/x Write grid entries bar x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr); 
wind_write(GRID,2,1,42,grid1,GRID->attr); 

wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,grid_era,GRID->attr); 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 


wind_@attr(GRID.2,4,1,Al): 

wind_attr(GRID,7,9,1,A2); 

wind_attr(GRID,2,14,1,A3); 
wind_attr(GRID,2,19,1,A4): 
wind_attr(GRID,2,24,1,A5); 
wind_attr(GRID,2,29,1,A6); 
wind_attr(GRID,2,34,1,A/): 
wind_attr(GRID,2,39,1,A8); 


do 
erase_box(old_grid_item/) ; 
draw_box(grid_item/) ; 
old_grid_item/ = grid_item/; 
update_wb_back(grid_item/) ; 
draw_window_back(); 


key = kb_read(); 


Switch(key ) 
case RIGHT_ARROW: 
/x IF rt col->mv to left col ELSE->mv rt x/ 


if(grid_item/==7 ) 
grid_item/=0; 
else 
Grid icrems+r: 
break; 


case LEFT_ARROW: 
1f(grid_item/==0 ) 
grid_item/=/; 
else 
drid_item/--:; 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} 
} while(!exit); 


/x Remove Lotus Window x/ 
wind_remove(GRID); 
/x return selected item «/ 


return(grid_item/); 
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/* 
*x Windows for Mouse Bar 
x / 


Vit 

tgrid9() 

int key; /*x Scan and char value  / 

int exit; /* val for loop cond chk x/ 

/ se ak ss afc af af 24 ahs 2k 24 34 246 2h 246 24 24 24 a 24 4G 24 a a4 a a a ag ag a a aE a a 3 a aK aE aC fC ae ag af fC ae af fe ag ae ae ae ae ae ag fe fe fe fe fe ae ae ake / 


/x Initialize grid menu window structure and display window. x/ 
1a He AG AGG He a ag a a AE AE HG GG 2 2 a a A AE AG AGG 2G 2 a aE 9 AE HE GC aE ae a HE AG Go oe ae a ag ag a EE ag a og he he ke ag ak ok ok ake ak / 


if€lgrid_flag} 
a ensure window initialization bypass x/ 
grid_flag=l; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind(GRID,2,33,8,77); 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr( BLACK ,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/*x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 
/x Display window x/ 


strtWind( GRID); 
} 


else 
wind_display(GRID); 


/x set loop condition x/ 
exit=aFALSE; 
/x Write grid entries bar x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr); 
wind_write(GRID,2,1,42,gridl1,GRID->attr); 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,gridl1,GRID->attr); 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 
wind_attr(GRID,7,4,1,A1); 
wind_attr(GRID,2,9,1,Az2); 

wind _@ttr(GRiIO.2,14,1,A3): 
wind_attr(GRID,2,19,1,A4); 
wind_attr(GRID,2,24,1,A5); 
wWind_@ttr(GRID,2,29,1,A6): 
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6-9 Continued. 


wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 
wind_attr(GRID, 


wind_attr(GRID,4,14,1,Al1l); 
wind_attr(GRID, gl ,hl2)% 
wind_attr(GRID,4,24,1,A13); 
wind_attr(GRID,4,29,1,Al14); 
wind_attr(GRID,4,34,1,A15): 
wind_attr(GRID,4,39,1,A16); 


do 
{ 


oA LAr I: 
woo, L Ae): 
,4,1,A9);: 


SHH HHH HP HP Po 
| od 
WO 


erase _box(old_grid_item8); 
draw_box(grid_item8) ; 
old_grid_item8 = grid_items; 
update_ttia(grid_items8) ; 
draw_table_top(); 


key = kb_read(); 


Switch( key ) 
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{ 
case RIGHT_ARROW: 
/x IF rt col->mv to left col ELSE->mv rt x«/ 


if(grid_item8==7 ) 
grid_item8=0; 

else if(grid_item8==15) 
grid_item8=8; 

else 
grid_item8++; 

break; 


case LEFT_ARROW: 
— if (grid_item8==0 ) 
grid_item8=/7; 
else if(grid_item8==8 ) 
grid_item8=15; 
else 
grid_item8--; 
break; 


case DOWN_ARROW: 
/x IF bottom row->mv to top row ELSE->mv down x/ 


if(grid_item8<=7 ) 
grid_item8 += 8; 
else 
grid_item8 -= 8; 
break; 


case UP_ARROW: 
/x IF top row->mv to bottom row ELSE->mv up «#/ 


if(grid_item8 >=8) 


grid_item8 a: 
else 

grid_item8 += 8; 
break; 
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case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} 
} while(!lexit); 
/x Remove Lotus Window x/ 
wind_remove(GRID); 
/x return selected item x/ 


return(grid_item8) ; 
} 


int 
tgridl0() 
ig key; /* Scan and char value «/ 
int exit; /# wal Tor toop cond cnk «7 
// sie she 52h 2 26 2 2 2 ERG a HE HA a HE HG 28S 2 aE C2 ag AC ae ae Eo ae go ae a i oe ae oe oe ea ae a ae oe a ae oe oe oe fe ae ae oe ak oe oe ae ake / 
/x Initialize grid menu window structure and display window” x/ 
if(!grid_flag) 
hi ensure window initialization bypass x/ 
grid_flag=1; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind(GRID,2,33,8,77):; 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/*x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
SetTitle(GRID,” Change Table Top “); 


/x Display window x/ 


SstrtWind(GRID); 
} 


else 
wind_display(GRID); 


/*x Set loop condition x/ 
exit=aFALSE; 


/x Write grid entries bar x/ 
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6-9 Continued. 


wind_write(GRID,1,1,42,grid_era,GRID->attr); 
wind write(GRID,2,1,42,0rid1,GRLD-Sattr): 

wind_write(GRID,3,1,42,grid_era,GRID->attr) ; 
wirid_wfrite(GRI0,4,1,42,¢grid_eara,GRID->attr); 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 


winid_attr(GRiI0,2,4,1,Al): 
wifid_ator(GkRIp,2,9.1,A2): 
wind_attr(GRID,2,14,1,A3); 
wind_attr(GRID,2,19,1,A4); 
wind _attr(GRID,2,24,1,A5); 
wind_attr(GRID,2,29,1,A6); 
wind_attr(GRID,2,34,1,A7): 
wind_attr(GRID,2,39,1,A8); 


do 
erase_box(old_grid_item9) ; 
draw_box(grid_item9) ; 
old_grid_item9 = grid_item9; 
update_ttia_back(grid_item9) ; 
draw_table_top(); 


key = kb_read(); 


Switch(key ) 
| 
case RIGHT_ARROW: 
fe IF ft col-dmv te lett col ELSE-Smv rt «/ 


if (grid_item9==7 ) 
grid_item9=0; 
else 
grid_item9++; 
break; 


case LEFT_ARROW: 
if (grid_item9==0 ) 
grid_item9=/ ; 
else 
grid_itemg9--: 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} while(!lexit);: 
/x Remove Lotus Window x/ 
wind _remove(GRID); 
/x return selected item x/ 


return(grid_item9) ; 
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/ x 
* Windows for Mouse Bar 
x / 
int 
tgridll() 
int key; /x Scan and char value * / 
int exit; /«* val for loop cond chk x/ 
// se ses a a 2 a a 38 2 2 21 2 2189 a1 a1 2 a 21 28 24s 2s 2 a 24 a a ag a a 2 a aE a 1S a aE aS aE aE aE aC a aC aC aE fe a aE ag a a ae fe a a a fe ae ae ake / 


/x Initialize grid menu window structure and display window” x/ 
// se shes 3 31 3 3 a1 91 3 2 91 a1 2 3S a a a a a aS 1 9 a1 9 a fe ES 6 EE a a a a1 9K aE a SE SC aC IC 26 GC og ag og ae og ae ag ae ae ae ak ac ak aks / 


if(!grid_flag) 
a ensure window initialization bypass x/ 
grid_flag=1; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind(GRID,2,33,8,77); 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY ,OFF_BLINK)); 
/* Set Window Border #/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 


/x Display window x/ 


StrtWind(GRID) ; 
} 


else 
wind_display(GRID); 


/x set loop condition x/ 
exit=aFALSE; 
/x Write grid entries bar” x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr) ; 
wind _writeCGRID,2,1,42,9rid1,GRID->dattr): 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,gridl1,GRID->attr); 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 
wind_attr(GRID.2Z.4,1,Al): 
wind_attr(GRID,2,9 ; 
wind_attr(GRID,2,14,1,A3); 
2,1 
Cut 


ho oO 


wind_attr(GRID, 
wind_attr(GRID, 
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wind_attr(GRID,2,29,1,A6): 
wind_attr(GRID,2,34,1,A7): 
wind_attr(GRID,2,39,1,A8); 
wind_attr(GRID,4,4,1,A9); 
wind_attr(GRID,4,9,1,A10); 
wind_attr(GRID,4,14,1,All1); 
wind_attr(GRID,4,19,1,Al2); 
wind_attr(GRID,4,24,1,A13); 
wind_attr(GRID,4,29,1,A14); 
wind_attr(GRID,4,34,1,A15); 
wind_attr(GRID,4,39,1,A16); 


do 


| 

erase_box(old_grid_iteml0) ; 
draw_box(grid_iteml0) ; 
old_grid_itemlO = grid_itemlo; 
update_bwb(grid_iteml0) ; 
draw_back_wind_bord(); 


key = kb_read(); 


Switch(key ) 
case RIGHT_ARROW: 
/*x IF rt col->mv to left col ELSE->mv rt x/ 


if(grid_iteml0==7 ) 
grid_iteml0=0; 

else if(grid_iteml0==15) 
grid_iteml0=8: 

else 
grid_iteml0++; 

break; 


case LEFT_ARROW: 

if (grid_iteml0==0 ) 
grid_iteml0=/; 

else if(grid_iteml0==8 ) 
grid_item1l0=15; 

else 
grid_iteml0--; 

break; 


case DOWN_ARROW: 
/x IF bottom row->mv to top row ELSE->mv down x/ 


if(grid_iteml0<=7) 
grid_iteml0O += 8; 
else 
grid_iteml0 -= 8; 
break; 


case UP_ARROW: 
/x IF top row->mv to bottom row ELSE->mv up #/ 


if(grid_iteml0 >=8) 
grid_iteml0 -= 8; 
else 
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grid_itemlO += 8; 
break; 


case ENTER: 
case ESC: 
exit=alRUE;: 
break; 
} while(lexit): 
/x Remove Lotus Window x/ 
wind _remove(GRID); 
/x return selected item x/ 


return(grid_iteml0O) ; 


int 
Loridl2(} 
on Keys f@ scan and char value  «#/ 
1nt- exit: /# Wal Ter leop cond chk =/ 
/x Initialize grid menu window structure and display window x/ 
itCigrid_fiag) 
? ensure window initialization bypass x/ 
grid_flag=1; 
/x Allocate memory and return pointer to structure x/ 
GRID = setwind(GRlD,7,.33,8,77): 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/* Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setlitle(GRID,” Change Table Top “); 


/*x Display window x/ 


StrtwWind(GRID); 
} 


else 
wind_display(GRID); 


/x set loop condition x/ 
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6-9 Continued. 
exit=aFALSE; 


/x Write grid entries bar x/ 


wind_write(GRID,1, 
wind_write(GRID,2, 
( 


wind_write(GRID,4, 


A? grid_era,GRID->attr); 
Ac, gridl,GRiD-2atcrd ; 


A2,grid_era,GRID->attr); 


1 ’ 

Ly 
wind_write(GRID,3,1,42,¢grid_era,GRID->attr); 

is 

1 


wind_write(GRID,5, 


AZ, gr id_era,.GRIU=>arttr): 


wind _attr(GRID,2,4,1,Al): 
wind_attr(GRID,2,9,1,A2); 
wind_attr(GRID,2,14,1,A3); 
wind_attr(GRID,2,19,1,A4): 
Wind_attr(GRID,2,24,1,A5): 
wind_attr(GRID,2,29,1,A6); 
wind_attr(GRID,2,34,1,A/); 
wind_attr(GRID,2,39,1,A8); 


do 


| 

erase_box(old_grid_itemll); 
draw_box(grid_itemll); 
old_grid_itemll = grid_itemll; 
update_bwb_back(grid_iteml1l); 
draw_back_wind_bord(); 


key = kb_read(); 


Switch(kKey ) 
{ 
case RIGHT _ARROW: 
/# IF rt col-dmyv to left col ELSE-S>mv rt «/ 


if (grid_iteml1l==7 ) 
grid_iteml1=0; 
else 
grid_iteml1++; 
break; 


case LEFT_ARROW: 
if(grid_iteml1l==0) 
grid_itemll=/; 
else 
grid_itemll--; 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} while(!exit); 


/x Remove Lotus Window x/ 


wind_remove(GRID); 


/x return selected item x/ 


212 Character-based window management demonstration programs 


return(grid_itemll); 


/ x 
* Windows for Mouse Bar 
 / 
nt 
baridl3st) 
int key; /* Scan and char value % / 
int @xit: /## Val Tor loop cond Chk #/ 
/ se ai 31 3 9 a HH HE AE a A A A A A GG HG HG oe oo oe a 2 a 2 a og og 2 og oe oe af af 28 24 a af af 2s of of 28 ae ae af af 2k af ok fe ae ae ak he fe fe ae / 


/x Initialize grid menu window structure and display window x/ 
[she 262K CHG HG HG HG a HG HCC EHC GG a a Ge a8 2h 28624 28 2A 2G HG HG 2G fg fe a4 28 2G 22 2G HE 2G ae ee fe 24g 2K oC oC og oe oe oe ke ok akc 2k ok ake ok ok ak ke / 


17(igrid_Tlag) 
a ensure window initialization bypass x/ 
grid_flag=l; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind(GRI0,2,33,8,77); 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr(BLACK ,WHITE,OFF_INTENSITY,OFF_BLINK) ); 
/*x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 
/x Display window x/ 


strtWind( GRID); 


else 
wind_display(GRID); 


/x set loop condition #/ 
exit=aFALSE; 
/x Write grid entries bar. x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr); 
wind_write(GRID,2,1,42,grid1,GRID->attr) ; 
wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GR10,4,1,42,0ridl1,GRID->attr) : 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 
wifid_AttrCGRiID,2.4,1,Al): 

wind attr(GRID,2,9,1,A2): 
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6-9 Continued. 


wind_attr(GRid,27,14,1,a3): 
wind_attr(GRID,2,19,1,A4): 
wind atir¢(GRI0,2,24,1,A5): 
wind_attr(GRID,2,29,1,A6) 

Wi hd_attr(GRID,2,34,1,A7): 
wind_attr(GRID,2,39,1,A8); 
wind_attr(GRID,4,4,1,A9); 

wind_attr(GRID,4,9,1,A10) 

wind_attr(GRID,4,14,1,Al11) 
wind aber, GRID,4,19,1,Al2) 
wind_attr(GRID,4,24,1,A13) 
wind_attr(GRID,4,29,1,A14) 
wind_attr(GRID,4,34,1,A15) 
wind_attr(GRID,4,39,1,Al16) 


do 
| 
erase_box(old_grid_iteml2) ; 
draw_box(grid_iteml2): 
old_grid_iteml2 = grid_iteml2; 
update_ra(grid_iteml2) ; 
draw_resize(); 


key = kb_read(); 


Switch(key ) 
! 
case RIGHT_ARROW: 
ie IF ft ¢ol-Smv to left col ELSE=>mv rt a/ 


if(grid_iteml 2==7 ) 
grid_iteml2=0; 

else if(grid_iteml2==15) 
grid_iteml2=8; 

else 
grid_iteml2++; 

break; 


case LEFT_ARROW: 

if (grid_iteml2==0) 
grid_iteml2=/7; 

else if(grid_iteml2==8 ) 
grid_iteml2=15; 

else 
grid_itemldé--; 

break; 


case DOWN_ARROW: 


/x IF bottom row->mv to top row ELSE->mv down x/ 


if(grid_iteml2<=7) 
grid_iteml2 += 8; 
else 
orid_itenl? -— 8: 
break; 


case UP_ARROW: 
/x IF top row->mv to bottom row ELSE->mv up x/ 
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if(grid_iteml2 >=8) 
grid_iteml2 -= 8; 
else 
grid_iteml2 += 8; 
break; 


case ENTER: 
case ESC: 
exit=alRUE; 
break; 
} 
} while(!exit); 
/x Remove Lotus Window x/ 
wind _remove(GRID); 
/x return selected item x/ 


return(grid_iteml2); 


int 
toridl4() 
i key; /x scan and char value ~ x/ 
int exit; /«* val for loop cond chk x/ 
/*x Initialize grid menu window structure and display window) x/ 
[HAH A A RR A A RR RHR AR HRA RR AR RRR AR oR oR oR oR RAR RRR oA oR AR oR aR oR oR ak oR oR aa ae aaa / 
if(!grid_flag) 
. ensure window initialization bypass x/ 
grid_flag=1; 
/x Allocate memory and return pointer to structure x/ 
GRID = setWind¢GRl0,2,33,0,% 0): 
/x Set Window Attr - Fore,Back,Intensity,Blink x/ 
setAttr(GRID,mk_attr(BLACK,WHITE,OFF_INTENSITY,OFF_BLINK)); 
/x Set Window Border x/ 
setBord(GRID,D_D_D_D); 
/x Set the top and bottom title - 0 set no bottom title x/ 
setTitle(GRID,” Change Table Top “); 


/x Display window x/ 


strtWind(GRID); 


else 
wind_display(GRID); 
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6-9 Continued. 
/*x set loop condition x/ 


exit=aFALSE; 
/x Write grid entries bar x/ 


wind_write(GRID,1,1,42,grid_era,GRID->attr):; 
wind_write(GRID,2,1,42,grid1,GRID->attr): 

wind_write(GRID,3,1,42,grid_era,GRID->attr); 
wind_write(GRID,4,1,42,grid_era,GRID->attr): 
wind_write(GRID,5,1,42,grid_era,GRID->attr); 


wind _atter(GRiI0.,2,4,1,aAl): 
wind_attr(GRID,2,9,1,A2); 
Wind _attriGRi0,2,14,1,A3): 
wind_attr(GRID,2,19,1,A4); 
wind_attr(GRID,2,24,1,A5) 
wind_attr(GRID,2,29,1,A6) 
wind_attr(GRID,2,34,1,A7) 
wind_attr(GRID,2,39,1,A8) 


do 
erase_box(old_grid_iteml3); 
draw_box(grid_iteml3); 
old_grid_iteml3 = grid_iteml3; 
update_ra_back(grid_iteml3) ; 
draw_resize(); 


key = kb_read(); 


Switch(key) 
{ 
case RIGHT_ARROW: 
/# IF rt col->mv to left col ELSE->mv rt #/ 


if (grid_iteml3==7 ) 
grid_iteml3=0; 
else 
grid_item13++; 
break; 


case LEFT_ARROW: 
if(grid_iteml3==0) 
grid_iteml3=/7; 
else 
OrPid_ temla-=4 
break; 


case ENTER: 
case ESC: 
exit=aTRUE; 
break; 
} 
} while(lexit); 


/x Remove Lotus Window x/ 


wind_remove(GRID); 
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/x return selected item x/ 


return(grid_iteml3); 


6-9 Ends. 


Summary 


This chapter presented many useful character mode window management 
functions. These functions allow you to: 


e Create a window or designated size, border style, and attribute 

e Write text to a window using a local coordinate system 

e Write a character to the window using a local coordinate system 

e Repeat a character to the window using a local coordinate system 

e Read a token (8-bit char and 8-bit attribute) from a specified win- 
dow location 

e Change specified screen location attributes in a window 

e Retrieve an alpha-numeric string from a field within a window 

e Display a window 

e Remove a window 

e Destroy a window structure 


These high-level window routines can be used to create a variety of 
interesting and useful user interface functions. 

Chapter 7 introduces printer management functions and presents 
two printer management programs. 
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/ 


Printer management 
demonstration programs 





This chapter presents two demonstration programs. The first exercises the 
printer management functions and the second demonstration program 
pulls together functions from all the categories presented in the book. 

Table 7-1 presents the function prototypes for the printer related 
functions. 


Table 7-1 Printer function prototypes. 


int print_open(int num); 

int print_close(int num); 

int print_newline(int num); 

int print_cr(int num); 

int print_string(int num, char +); 

int print_char(int num, char ch); 

void print_set_column(int num, int column); 


Printer function descriptions 

Function print__open(...) 

Usage Status= print__open(num) ; 
where 


Status is an int 
num is an int 


Remarks This function is required by the OS/2 library. The printer is 
treated as a device and may be written to as such. The device 
must be opened before it is written to. This function does not 
have meaning in the DOS library. The function returns a O on 
no error, and variable num refers to the printer port number. 


Function print__close(...) 

Usage Status= print__close(num); 
where 
Status is an int 
num is an int 


Remarks This function is required by the OS/2 library. The printer is 
treated as a device and may be written to as such. This device 
must be closed after you are finished writing to it. Closing the 
printer device ensures that the bytes will then be sent to the 
printer. This function does not have meaning in the DOS 
library. The function returns a O on no error, and variable num 
refers to the printer port number. 


Function print_newline(...) 
Usage Status= print__newline(num) ; 
where 


Status is an int 
num is an int 


Remarks This function sends a carriage return and line feed to the 
printer. Variable status receives a O on no error. 


Function print__cr(...) 

Usage status= print__er(num): 
where 
Status is an int 
num is an int 


Remarks This function sends a carriage return to the printer. Variable 
status receives a O on no error. 


Function print__string(...) 

Usage Status= print__string(num, string); 
where 
Status is an int 
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Remarks 


num is an int 
String is a null terminated character buffer 


This function sends a string of characters to the printer. 
Variable status receives a O on no error. 


Function print__char‘(...) 


Usage 


Remarks 


Status= print._cnarinum, cn): 
where 


Status is an int 
num is an int 
ch is a char 


This function sends a byte to the printer. Variable num is the 
printer port and variable ch is the character that will be sent 
to the printer. A O will be returned to status on no error. 


Function print__set__column(...) 


Usage 


Remarks 


print__set__column(num, column); 
where 


numis an int 
column is an int 


This functions sets the column location of the print head to a 
specified value. Variable num holds the printer port and 
variable column holds the column value where the printer 
head will be set to. 


A command line file print utility 


The first demonstration program, PROG7-1.EXE, is a command line file 
print utility. It allows you to print Dos Text listings. Here is the program’s 


syntax: 


PROG7-1 
Usage 


prpog/-1 filename (idl [ve] Lip] 

where 

/d initiates double strike printing 

/c initiates compressed printing 

/p initiates header on page top with filename and 
page number 


The options for PROG7-1 can be placed in any combination. 
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7-1 The source code listing to PROG7-1.C. 
PO CSESESOL EL eee ERCP CER P EPC LEL ee ree: 


i? 


/f prog7-1.c 


// 


// Command Line version file print 


oF ULT tity 


ie 


PESELSCSE SEPP e eee ree eS Ree Pee ee eer ee a: 


HHifdef 
#tdefine 
Htdefine 
4tdefine 
ftdefine 
define 
Htdefine 
Htdefine 
#tdefine 
fFelse 
ftdefine 
ftendif 


Htdefine 


#tdefine 
Htdefine 


ifdef 


OS2_PROG 
INCL_DOSDEVICES 
INCL_DOSDEVIOCTL 
INCL_VIO 
INCL_KBD 
INCL_MOU 
INCL_DOSPROCESS 
INCL_DOSSEMAPHORES 
FILEMAX 


FILEMAX 32000 


CONDENSE_ON 1 
DOUBLE _STRIKE_ON 2 
HEADER_ON 3 


OS2_ PROG 


1000000 


#include <os2.n> 
feendif 


4Hinclude <stdlib.h> 
#Hinclude <stdio.h> 
fHinclude <string.h> 
#Hinclude <memory.h> 
fHinclude <malloc.h> 


fFinclude “tproto.h” 


FREE TELEET EI EI TEI IEE ETAT eee el 
rs 

// Epson printer defines 

// 

// You would put the defines for your 
// printers here 


ei 

d#Fdefine EPSON _CONDENSE_ON Ox0OT 
4#Fdefine EPSON CONDENSE_OFF 0x12 
4#Fdefine EPSON CARRIAGE_RETURN aCR 
define EPSON _LINE_FEED aLF 
4tdefine EPSON _FORM_FEED aFF 
+#define EPSON _DOUBLE_STRIKE_ON 0x47 
define EPSON DOUBLE_STRIKE_OFF 0x48 


PEPRCCRCE CER SES CeCe Ce Eee C er eee eee eer 
es 
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// Printer defines used in PRITEXT 


i} 

#fdefine PRINTER_CONDENSE_ON EPSON _CONDENSE_ON 
#define PRINTER_CONDENSE_OFF EPSON_CONDENSE_OFF 
#fdefine PRINTER_CARRIAGE_RETURN EPSON_CARRIAGE_RETURN 
#define PRINTER_LINE_FEED EPSON_LINE_FEED 
#tdefine PRINTER_FORM_FEED EPSON_FORM_FEED 


#define PRINTER_DOUBLE_STRIKE_ON EPSON _DOUBLE_STRIKE_ON 
#fdefine PRINTER_DOUBLE_STRIKE_OFF EPSON _DOUBLE_STRIKE_OFF 


if 
SEAGER CECSE SES SELC CTE RSS CLES Cee EP Eee ES: 


eee 
ii 

// Function prototypes 

i] 


int test_arg(char x); 


PPPPEPL TEEPE EAP EL TEL PP eee PPP ed 
// 

// Begin Program here 

fi 


void main(int argc, char xargvLl]) 
| 

PELE @T pers 

ULONG chars_printed= 0; 
ULONG file_length; 

char buffer[60]; 

char «xfile_buffer; 

char «ch, #cn_test; 

int counter, acount, ctr; 
int LF_counter= 0; 

int condense_flag= 0; 

int header_flag= 0; 

int double_strike_flag= 0; 
int page_number= 1; 

UCHAR Bitrl, atire: 

int page_length= 58; 

char ascii_buffer[20]; 


attrl= mk_attr(WHITE, BLUE, ON_INTENSITY, OFF_BLINK); 
attre= mk_attr(BLlaAck, WHITE, OFF_INTENSITY, OFF_BLINK); 
file_buffer= (char «*)malloc(FILEMAX); 

ch= file_buffer; 

memset(file_buffer, 0, FILEMAX); 

ScrnIMitt ys 

cu_save_loc(); 

Cu_remove(); 


Sscrn_save(): 
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7-1. Continued. 
scrnec)leart): 


fptr= fopen(argv[1], “r”); 


iftCarge == 1) || Clstrniemp(*/?”", argvl1], 2)3) 4 
Cu_move(2, 0); 
priniTe” OS/2 Public Domain ASCII File Print Utility ¥. 1.0\n")s 
printf(“ Dranoel Software, xxxxxxx NY\n\n”); 
primary” Syntax: “J; 
printrc” prcvext Tileriame [C/C] CAD] LYHI\W'"): 
printf (“ where\n”); 
printf(“ /C Turns the Epson printer condense mode on\n”); 
printf(“ /D Turns the Epson printer double strike mode on\n”); 
printf(“ /H Prints page header with file name and page number\n”); 
exit(0); 


itt ifptr) 4 
Ccu_move(2, Q); 
printyc" OS/2 Puplie Domain ASCIT File Print Utility ¥. 1.0\n"}; 
printf(“ Dranoel Software, Xxxxxxx NY\n\n”"); 
printf(“ File %@s not found.\n\nProgram aborted.\n”, argvLll]); 
exit(Q); 


scern_change_attr(attr2): 
Scrn_aceriu, 0, BO, acerl}: 
SEPAnGEEril, 0, BO. attri? 


scrn_write(d, 0, 0, ” OS/2 Publi¢c Domain ASCII File Print Utility ¥. 
1,0". Aber is 
scrn_writetl, 0, 0, “ Dranoel Software, XXxxxxx NY”, attrl): 


fread(file_buffer, FILEMAX, 1, fptr); 
file_length= strlen(file_buffer) ; 


memset(buffer, 0, 60); 


Sprintf(buffer, “ File name: 4s”, argvll]); 
scra_writetlo, GO, 0, buffer, attir2): 
sprintf(buffer, “ File size: 4d”, file_length); 


scrn_writecll, &. 0, buffer, attrz): 


if(argce >= 3){ 
for(Cacount= 3; acount <= argc; acount++) { 
Switch(test_arg(argvLacount-1l])) | 

case CONDENSE_ON: 
condense_flag= 1; 
break; 

case DOUBLE_STRIKE_ON: 
double_strike_flag= 1; 
break; 

case HEADER_ON: 
header_flag= 1; 
break; 


scrn_write(3, 0, 0, “ Print Options Selected “, attr2); 
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scrn_repeat_char(4, 2, 23, 196, attré); 


if(condense_flag) { 

Sscrn_write(5,0,0,” Condense Mode On”, attr2); 
else { 

scrn_write(5,0,0,” Condense Mode Off”, attr2); 


if(double_strike_flag) { 
scrn_write(6,0,0.” Double Strike Mode On”, attr2): 
} 

else { 
scrn_write(6,0,0,” Double Strike Mode Off”, attr2); 
} 


if(header_flag) | 
scrn_write(7,0,0,” Header Mode On (file name and page number)”, 
ecttr2): 
page_length= 55; 
else { 
scrn_write(7,0,0,” Header Mode Off”, attr2); 


print_open(Q); 


if(condense_flag) { 
print_char(0, PRINTER_CONDENSE_ON) ; 


if(double_strike_flag) { 
print char(0, aESe); 
print_char(Q, PRINTER_DOUBLE_STRIKE_ON); 


if(header_flag) { 

print_char(0, aCR); 
print_string(0O, “File Name: “); 
printstringtd, argviil]): 
if(condense_flag) { 

print_set_columntd, 116); 
else { 

print_set_column(0, 60); 
print_string(0, “Page Number: “); 
memset(ascii_buffer, 0, 4); 
jtoa(page_number, ascii_buffer, 10); 
page_number++; 
Print_stringtv, ascii_butrer): 
printchar(0, alr}: 
print_set_columntdo, Q): 
if(condense_flag) { 

PoOrlcir= De Clr < 136: etree) | 


orintocharto,. * "93 
else { 
Tor (ctr Dr €tr < 80, ctr) | 
print_char(0, °_.*); 
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7-1 Continued. 


pring cherta, wala 
print_char(d, alr}; 


eee eee ee ee eee ee eee eee eee eee gee rere: 
f¢ 

// main printer loop 

// 


for(counter= 0; counter < file_length; counter ++) | 


PET EL TERETE Te PP Gaal if 
fi 

// Routine to write file name and 
// page number as header of each 

// page 

/ / 


if(*ech == aLF) { 
if(LF_counter >= page_length) { 
LF counter= 0; 
print_char(0, PRINTER_FORM_FEED) ; 
if(header_flag) | 
print_char(Q, aR); 
print_string(0,”File Name: “); 
orint_string<0, argvild): 
if(condense_flag) { 
print_set_column(0, 116); 
else | 
print_set_column(0, 60); 
print_string(0, “Page Number: “); 
memset(ascii_buffer, 0, 4); 
jtoa(page_number, ascii_buffer, 10); 
page_number++; 
orint_string(d, ascii_buTfer); 
printehar(Q, aL); 
print_set_column(), 9): 
if(condense_flag) { 
fOr .etr= Us ctr « Ise: CEP er) 
printchar{o, °°); 
else { 
fortctr= 0: ctr < 60s ctr) 
print charto, “733 


print charted, @ LF); 
prin cherco,. eLeiy 
else { 
LF_counterer; 
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print_char(0, sche); 

chars printed++: 

memset(buffer, 0, 60); 

sprintf(buffer, “ Number of characters printed: 4d”, chars_printed) ; 
scrn_write(12, 0, 0, buffer, attr2); 


if(double_strike_flag) | 
prinicnartO, e@Est); 
pPintichear(O, PRINTER DOUBLE _STRIKE_OFF); 


if(condense_flag) { 
print_char(0, PRINTER_CONDENSE_OFF); 


print_char(0, PRINTER_FORM_FEED) ; 
print_close(0); 

felose(Totr): 

free(file_buffer); 


scrn_writetl4, 0, 0, “s The print job 1s finished.” , atir2): 
sern_attr(i4, 0, 1, mkattrtRED, WHITE. OFF_INTENSITY, ONUBLINK)}: 
scrn_write(15, 0, 0, “x Press any key to exit.”, attr2); 
Scrnuattr(1s, 0. Ly Me-attrcRED, WHITE, QFFE.INTENSITY,. ON BLINK): 


kb _read(); 
scrn_ restoral}): 
cu Past _loc(}: 


cu_display(); 


int test_arg(char xptr) 
| 
IT CiSscrnicie. "yo", BER. 217° 4 
return CONDENSE_ON; 
else if(lstraicppc “7/0”, ptr, 222 1 
return DOUBLE_STRIKE_ON; 
else if(istrnicmp("/H”, ptr, 2)) | 
return HEADER_ON; 
else { 
return QO; 


7-1 ~Ends. 
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File print utility that puts it all together 


Figure 7-2 presents the listing to PROG7-2.C. This program utilizes screen, 
window, mouse, cursor, keyboard, make, and print functions. The 
program allows you to enter up to 16 files for printing. Note that the dialog 
boxes that were presented in Chapter 6 were used in this program. 

It’s plain to see that when you want to design a user interface for a 
program using the functions presented in this book, it makes great sense 
to follow the development process presented in Chapter’s 6 and 7. 


1. Map the dialog box using the ms__map__display(...) function 

2. Incorporate the dialog boxes, menu bar, and drop down windows 
into the user interface 

3. Add the code for the guts of the program 


Printer demonstration program PROG7-2.C (FIG. 7-2) is not a full- 
fledged commercial quality print program. It will, however, provide a nice 
starting point for you to develop your own text file print utility program. If 
you do write an enhanced version of PROG7-2, know that I'd love to see it. 

Examine the source code for PROG7-2.C (FIG. 7-2) very carefully. 
There are many useful routines that you can lift from this program, modify 
to your needs, and bring into your programs. 


7-2. The source code listing to PROG7-2.C. 
POPS CEES EC SES FECES PCL R EEC eE Ee eT Eas, 


ie 

// prog/-2.c 

if 

// Demonstrates: 

// Integration of mouse and printer 
ja Capabilities with a menu bar/ 

ii drop down window user interface. 


SPCR P ELS ESER TCSP CPE CASE Rei eer rr eee, 
PEPPEPI EEL IATL REAL ETA GLIAL EDIT ETT TE 
ei 


// Compiler includes here 
iif 


ifdef OS2 PROG 
4#Finclude <os2.h> 
dFendi f 


#include <stdlib.h> 
#Hinclude <stdio.h> 

#Hinclude <string.h> 
#Hinclude <memory.h> 
include <malloc.h> 


PES OSEECRORESSEOC ECS ESR EC ERE Peer eee es) 
// 


// Library includes here 
// 
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#include “tproto.h” 


PEP EE PEPER EP ELIT ATT EPEAT IEEE Ts 
ff 

// Epson printer defines 

// 

// You would put the defines for your 
// printers here 


ty 

ftdefine EPSON _CONDENSE_ON Ox0f 
#tdefine EPSON _CONDENSE_OFF 0x12 
define EPSON _CARRIAGE_RETURN aCR 

#tdefine EPSON_LINE_FEED aLF 

#tdefine EPSON FORM FEED aFF 

4tdefine EPSON _DOUBLE_STRIKE_ON 0x47 


define EPSON _DOUBLE_STRIKE_OFF 0x48 


SESE TE SESE CSISEC SESE CLS CE CECE EL SER Tee; 


if 

// Printer defines used in PROG/-2.C 

ii 

define PRINTER_CONDENSE_ON EPSON _CONDENSE_ON 
4#define PRINTER _CONDENSE_OFF EPSON CONDENSE_OFF 
4#define PRINTER_CARRIAGE_RETURN EPSON CARRIAGE_RETURN 
#define PRINTER_LINE_FEED EPSON_LINE_FEED 
#define PRINTER _FORM_FEED EPSON _FORM_FEED 


#define PRINTER_DOUBLE_STRIKE_ON EPSON _DOUBLE_STRIKE_ON 
#define PRINTER_DOUBLE_STRIKE_OFF EPSON _DOUBLE_STRIKE_OFF 


// 
PEPREEPT ETL TPET TTA TP TT PPE EET PE eee 


PEP TEL ISIE ET EGET TTA eee eT a ee ita 
// 

// defines 

// 


d#Fifdef OS2 PROG 

define FILEMAX 1000000 
ftelse 

ftdefine FILEMAX 32000 
dFendif 

d#Fdefine FILE_NAME_LIST_MAX 16 


#define CONDENSE_ON 1 
#define DOUBLE_STRIKE_ON 2 
#fdefine HEADER_ON 3 


typedef struct PrintOpt { 
UCHAR compress; 
UCHAR double_strike; 
UCHAR header; 
UCHAR left_offset; 
}3 


PELILTLEETTTTTTTTT TITEL TTT TTI TTT 
// 
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7-2 Continued. 
// function prototypes 


a) 


#ifdef DOS _PROG 


dFendi f 


int 
int 
1Nt 
int 
void 
void 
char 
WIND 
WIND 


‘a 


openDD_File(void); 

openDD_Print(int num_copies); 
openDD_Options(void); 

openDD_Help(void); 

print_menu_bar(void); 

FILE_About_ALT_A(void); 

**eF TLE_Open_ALT_O(int «key, int sentries); 
*FILE_display_files(char «files, int entries); 
*PRINT_Start_ALT_S(void); 


PEEPPPL PLETE PELE EL PEELE TEP TET PEPE 


PEPE ERLE EET REPEL EEE LET a 


// 


// global data 


// 


int 

char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


mouse_installed; 


FILE_ALT_O[LJ= "FLLEs Open 
FILE_ALT_XLJ= TPL Les -ERe 
FILE_ALT_AL J= "FILE: About 


PRINT_ALT_N[ J= 
PRINT_ALT_S[ ]J= 
OPTIONS ALT_PL] 
OPTIONS ALT_S[ J 
OPTIONS ALT_IL] 
HELP_ALT_PL J= 
HELP_ALT_M[ J= 
ERASE_messagel J= 
dotl3]= 70", aoe, I" Fs 
FILE_about_bar[L30]J= { 199, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 
196, 196, 196, 196, 162 |: 


| 
| 
{”’PRINT: Number of copies 
{"PRINT: Start print job 
{"OPTIONS: Select printer 
{"OPTIONS: Select print options “ 
{"OPTIONS: Install printer codes “ 
{”?HELP: Program help 
{"HELP: Dranoel help 
[» 


FILE_about3[28]= Dranoel Software Inc 
FILE_about4[28]= - MXX RK MK RRR RR 
FILE_about5[28]= ‘ RRR MRK MMM MK REM 
FILE_about/[28]= ~ Grafting OS/2 Utilities 
FILE_about8L 28 J= is And Programmer Tools 

FILE _about9[29]= e For Now and the Future 
FILE_about32[28]= 

FILE_ok[4]= an) | ae 

FILE_open3[31]= “Enter File Name: 5; 
FILE_entry{[31]= “1s Entry Correct: Py) Ls 
FILE_add[{3l]= “ Add Another File: (i ee 


FILE_open32[31]= 


a“ a a a a” a a“ a a 

a a a a a a a“ a“ a 
eee ee i eee ee ee eS SC 
we we wee ee ee we we lw Hl Hl Hl 


OPTIONS set_bar(34J= { 199, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 196, 
Lge, Loe, 186, 196, 196, 196, 
196, 196, 296, 196, 196, 196, 


196, 196. d26, 196, 136, 
196, 196, 196, 196, 162. 13 
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char OPTIONS set2[32]= 5 Options Oa Off * 
char OPTIONS set4[32]= “ Compress (136 dpi) ee ae 
char OPTIONS set5[32]= * Double Strike Laue d= 
char OPTIONS set6[32]= “ Header (File & Page) ie ee er 
char OPTIONS set8[32]= “ Left Column Offset [00] [05] *: 
char OPTIONS set9[32]= 7 In Blank Spaces Poo) Lied s 
char OPTIONS setl0[32]= . CA. Less 
char OPTIONS setl2[32]= ad [ Ok ] [ Cancel ] 

// 


PLPTEP EEL TLE TALL A AEE TTP AAPG STILE ES 


PLETEATPR ETT AAP P PTE PATA PPE TP APT PP Pega gs 
ff 

// print display of file being 

// printed 

// 


WIND *PRINT_Start_ALT_S() 
{ 

WIND *W1; 

UCHAR attri, attr2d: 

int key, X, Y;3 


// 
// initialize attribute 
// 
attril= mk_attr¢( BLACK, WHITE, OFF_INTENSITY, QFF_BLINK): 
attr2= mk_attr(BLUE, WHITE, OFF_INTENSITY, OFF_BLINK); 
ie 
// Initialize Window 
// 
Wl = wind_init(Wl, 
4 , 
0, 
Ay 
39, 
sho glee 
D BBD, 
* PFINt Files “hs 
‘ai 
// write dialog window messages 
{i 
wind_write(Wl, 2, 1, 0, “ File Name: “, attr2); 
wing write(Wl, 3, i, 0, “ File Size: “, attr2): 
wind_write(Wl, 4, 1, 0, “ Number of Chars Printed: “, attr2):; 


return(W1):; 
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7-2 Continued. 


// 
PEPTATALT PEAT TAT TATA PETE ET aT 


PREECE ELI PLP EI EPI III PEPE a iT 
// 

// display file names 

// 


WIND *FILE_display_files(char #«#files, int num_entries) 
| 


WIND *W1; 

UGRAR attr: 

int key, counter; 

// 

// initialize attribute 
// 


attrl= mk attr(BlAck, WHITE, OFF_INTENSITY, OFF_BLINK); 


// 
// Initialize Window 
ff 
Wl = wind_init(Wwl, 
2. 
AQ, 
Ces 
79, 
oir ly 
DD DD, 
“PL le Print List. “ps 
// 
// write dialog window messages 
if 


wind_write(Wl, 2, 2, 9, “File Name”, Wl->attr); 
wind_repeat_char(Wl, 3, 2, 9, 196, Wl->attr); 
wifdwritecWl, 2, 26. 12, “Print Status”, Wl-<sattr?: 
wind_repeat_char(Wl, 3, 26, 12, 196, Wl->attr); 


for(counter= 0; counter < num_entries; countert+) { 
wind_write(Wl, 4 + counter, 2, 0, (char *«) «(files + (counter x 
sizeotichar #))), Wl->attri): 
wind_write(Wl, 4 + counter, 26, 0, “Waiting...”, Wl->attr); 


return(Wl):; 
} 
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PESEECREL SLE CES CST PEP CCRT ERS SEES ELT ee 
fz 
J? OPTIONS: Set Print Options 


int OPTIONS _Set_ALT_S(struct PrintOpt *PQ1) 

WIND  -«W1; 

UCHAR attrl, attr2, compress, double_strike, change= 0; 
UCHAR header, left_offset, exit_flag= 0; 

int x. ¥, Key: 


// 

// transfer PrintOpt structure values to 
// local variables 

// 


compress= POQl->compress; 
double_strike= PO1->double_strike; 
header= POl->header; 

left_offset= P0O1->left_offset; 


// 
// initialize attribute 
ff 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attre= HRUETTP{RED, WHITE, OFFUINTENSITY, OFFUBLINK); 


ff 
// turn off the mouse 
re 


if(mouse_installed) { 
ms_off(): 
} 


// 
// Initialize Window 
// 


Wl = wind_init(Wl, 
a 
20, 
ALS, 
2UFS3 5 
attrl, 
b_0 po. 


* Print Options *): 


ii 
// write dialog window messages 
ff 
wind_write(Wl, 0, 1, 3, dot, Wl->attr); 


wind_write(Wl, 2, 1, 32, OPTIONS set2, Wl->attr); 
wind_repeat_char(Wl, 3, 7, 7, 196, Wl->attr); 
wind_repeat_char(Wl, 3, 25, 3, 196, Wl->attr); 
witd_pepeat chartwl, 3, 29, 3, 196, Wl-dattr): 
wind_write(Wl, 4, 1, 32, OPTIONS_set4, Wl->attr); 
wid cnartwWl, 4, 2, “G", a@ttp2): 

wind_write(Wl, 5, 1, 32, OPTIONS set5, Wl->attr); 
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7-2 Continued. 


// 
a 
if 


wind_char(wl, 


wind_write(Wwl, 


wind_char(Wwl, 


wind_write(Wwl, 


wind _char(Wwl, 


wind_write(Wwl, 
wind_write(Wl, 
wind _write(Wl, 


display current setup 


wind_char(wl, 
wind_char(Wwl, 


if(compress) { 


Lis 
big 


wind_char(wl, 


else { 


wind_char(wl, 


if(double_strike) 
wind_char(wl, 


else { 


wind_char(Wwl, 


if(header) { 


wind_char(wl, 


else { 


wind_char(Wwl, 


Switch(left_offset) 


case O00: 


wind_attr(wl, 


break; 
case 10: 


wind_attr(wl, 


break; 
case 20: 


wind_attr(Wwl, 


break; 
case 05: 


wind_attr(wl, 


break; 
case 15: 


wind_attr(wl, 


break; 
case 25: 


wind_attr(Wwl, 


break; 


’ 26, 


, oi, 


, 26, 


a eal 


ae e 


ae ie 


Or. 


02, *C', 


"9 Mure): 

, OPTIONS set6, 
‘» ALEFC): 

, OPTIONS set8, Wl->attr); 
*, attre): 
, OPTIONS set9, Wl->attr); 
, OPTIONS setlO, Wl->attr); 
, OPTIONS setl2, 


attire} 
attr2): 


"hk y OUEPZHS 


aK 6» Obes 


“KR”. €tErzZ) 


"  BETRS Ts 


he. SETRZ) 


*T Ste): 


~ by BLUPRZ): 


. @s BCE}: 


, #y Sttre): 


, £y BEErZ}: 


, 2, atir2): 


~ Ly STEPS): 
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W1->attr); 


fi 
if 
// 


fi 


// 
Py 
// 


turn on the mouse 


if(mouse_installed) { 
ms_on(); 


ms_map_display(20, 0, F10); 


process keyboard and mouse input 


exit_flag= 0; 


do { 
if(change) { 
change= 0; 


if(mouse_installed) { 
ms ont y: 


if(compress) { 


wind _char(Wl, 4, 26, ‘X 

wind_char(Wl, 4, 30, 

} 
else { 

wind_char(Wl, 4, 26, 

wind _char(Wl, 4, 30, ‘X’ 

} 
if(double_strike) { 

wind char(Wl, 5, 2b, “X’ 

wind _char(Wl, 5, 30, ° 
else { 

wind _char(Wl, 5, 26, ‘ 

wind _cnart(Wi, 5, 30, *A’ 
if(header) { 

wind _char(Wl, 6, 26, ‘X’, 

wind_char(Wl, 6, 30, * ’ 

} 
else { 

wind_char(Wl, 6, 26, 

wind _char(Wl, 6, 30, ‘X’ 

} 
wind _attr(Wl, 7, 24, 2, Wl->a 
wind_attr(Wl, 8, 24, 2, Wl->a 
wind _attr(Wl, 9, 24, 2, Wl->a 
wind attr(Wl, 7, 29, 2, Wl-+a 
wind_attr(Wl, 8, 29, 2, Wl->a 
wind_attr(Wl, 9, 29, 2, Wl->a 
Switch(left_offset) { 

case OO: 

wind_attr(hWi, 7, 24, 2, 


¢ moore, : 
’, W1l->Dattr): 


2 WL=SaCcri? 
, attrz): 


, @EEreZ): 
*, Wil->sattr): 


*, Wil- PaECr): 
. attr2): 


actre)? 


, Wl->attr): 


", Wl-?attr): 
, BLEPZ): 


Ler): 
Etr.: 
Ebr: 
LEP)? 
cur. 
tcr i: 


attrz): 
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7-2 Continued. 


break; 

case 10: 
winidettriwWwi, 8, #24, 2, ettr?): 
break; 

case 20: 
windg_attr(wl, 9, 24, 2, attr2): 
break; 

case 05: 
wind_attr(Wl, 7, 29, 2, attr2); 
break; 

case 15: 
WITG_a@ttrcWd, 8, 29, 2, abtrzy: 
break; 

case 25: 
WificaAttrCWl, 9, 29, 2, aterz): 
break; 

if(mouse_installed) { 
ms_on(); 


key= kb _status(); 


if((!key) && (mouse_installed)) { 
key= ms_status(&x, &y); 


if((key == 1) && (x >= 208) && (x <= 248) && (y == 120)) | 
key= ENTER; 


ifitt key == 1) Ba (x 2= 320) ah (x <= 392) o& [y —— 120)) |] 
(ik == Lio) @& Cy == S2))0 | 
Key= ESCAPES 


// Compress off to on 


if((key == 1) && (x == 368) && (y == 64)) | 
if(!compress) { 
key= ALT_C; 


// Compress on to off 


if((key == 1) && (x == 400) && (y == 64)) { 
if(compress) { 
key= ALT_C; 


// Double strike off to on 


if( (key == 1) && (x == 368) && (Cy 
if(!double_strike) | 
key= ALT_D; 


= Fe) 2 4 
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// Double strike on to off 


if((key == 1) && (x == 400) && (y == 72)) | 
if(double_strike) { 
key= ALT_D; 


// header off to on 


if((key == 1) && (x == 368) && (y == 80)) | 
if(!header) { 
key= ALT_H; 


// header on to off 


if((key == 1) && (x == 400) && (y == 80)) { 
if(header) { 
key= ALT_H; 


if((key == 1) && (xX >= 352) && (x <= 360) && (Cy == 88)) | 
left_offset= 00; 
change= 1; 

if((key == 1) && (x >= 392) && (x <= 400) && (y == 88)) | 
left_offset= 05; 


change= 1; 

if( (key == 1) && (x >= 352) && (x <= 360) && (y == 96)) { 
left_offset= 10; 
change= 1; 


if((key == 1) && (x >= 392) && (x <= 400) && (Cy == 96)) | 
left_offset= 15; 
change= 1; 
| 

if((key == 1) && (x >= 352) && (x <= 360) && (y == 104)) | 
left_offset= 20; 


change= 1; 

if((key == 1) && (x >= 392) && (x <= 400) && (y == 104)) { 
left_offset= 25; 
change= 1; 


if(key == ALT_C) { 
if(!compress) { 
compress= 1; 
else { 
compress= 0; 
} 
change= 1; 


if(key == ALT_D) { 
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7-2 Continued. 


if(!double_strike) { 
double _strike= 1; 
} 

else { 
double _strike= 0; 
} 

change= 1; 


if(key == ALT_L) { 
if(left_offset == 25) { 
left_offset= 0; 
} 
else { 
left_offsett= 5; 
} 
change= 1; 
} 


if(key == ALT_H) { 
if(!header) { 


header= 1; 
} 

else { 
header= 0; 
} 

change= 1; 


if((key == ESCAPE) || (key == ENTER) ){ 
exit_flag= 1; 


} while(!exit_flag):; 


ee 

// if key is equal to ENTER then 
// transfer the data from the 

// local shadow of the 

// PrintOpt structure to the 

// parameter PrintOpt pointer’s 
// structure 


// 
if(key == ENTER) { 

POl->compress= compress; 
PO1->double_strike= double_strike; 
PO1->header= header; 
POl->left_offset= left_offset; 

// 

// turn off the mouse 

// 


if(mouse_installed) { 
ms_off(); 
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// 
re 
// 


ts 
if 
// 


ie 
re 
// 


ret 


ee 
if 
// 


cha 
{ 
WIN 


remove window and display original screen information 


wind_remove(Wl); 


destroy the window structure 


wind_destroy(wl); 


turn on the mouse 


if(mouse_installed) { 
ms_on(); 
} 


urn key; 


PELE IPR T TASTE I a 
FILE: Open dialog box 
r xeFILE_Open_ALT_O(int «*key_val, int x*entries) 


D «Wl; 


FILE -«fptr; 


UCH 
UCH 
cha 
int 
THA 
TAT 
Int 
LATE 


Bs 
// 
os 


// 
If 
i? 


// 
ff 


AR attrl; 

AR exit_flag= 0, exit_flagl= 0; 
r eCOlr, mecDLrotr; 

key; 

a 


y; 

file_count= 0; 

count= Q; 
jnitialize array of pointers 
cptrptr= (char «**)calloc(FILE_NAME_LIST_MAX, sizeof(char «)); 
Jnitialize the array of pointers to 0 


for(count= 0; count < FILE_NAME_LIST_MAX; count++) { 
*(cptrptr + (count * sizeof(char *)))= (char *)0; 


initialize attribute 
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7-2 Continued. 


pe 
ATTY 1= MkKaTCPCBLACK, WHITE, GFF_INTENSITY, OFF_BLINK): 
// 
// turn off the mouse 
iy 
if(mouse_installed) { 
ms_off(); 
// 
// Initialize Window 
// 
Wl = wind_init(wl, 
8 , 
8 , 
lr a 
eae 
attr, 
D_D_D_D, 
‘ Open File For Print “); 
re 
// write dialog window messages 
// 
wind_write(Wl, 0, 1, 3, dot, Wl->dattr); 
wind_write(wl, 1, 1, 31, FILE_open32, Wi-attr); 
wind_write(Wl, 2, 1, 31, FILE_open3, W1l->attr); 
fy 
// turn on the mouse 
// 


if(mouse_installed) { 
ms_on(); 
fi ms _map_disolay¢(3, 0, FLO): 
// 
// read the keyboard 
// 


do | 
// jump her for new entry 


add_entry: 
// allocate memory for file name 
cptr= (char *)malloc(40Q); 


// place pointer in array of pointers 
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*(cptrptr + (file_count * sizeof(char *)))= cptr; 
// initialize file name buffer to 0 
memset(cptr, 0, 40); 
// jump here on entry abort 
abort_entry: 
// display mouse 
cu_display(); 
// if the mouse is installed turn it off 
if(mouse_installed) { 
ms_off():; 
// get file name string from keyboard 
key= wind_kb_edit(wl, 
COL s 
2 ’ 
19, 
34, 
UPPER, 
Wl->attr): 
// remove the mouse 
Cu_remove(); 


// if the key is ENTER process name 


if(key == ENTER) { 
// erase the file name from enter row 


wind_repeat_char(Wl, 2, 19, 34, ‘* ’, Wl->attr); 
// copy the file name to the line below 


wind.writecWl, 3, 2, 0. “File Entry: “, Wl=>attr): 
wihtd_writetWl, 3, 14, 0, ¢ptr, Wl->attri; 


// test to see if the file can be opened 
Tptr= Topen(cotr, “rr 2; 


// on no print error message and allow user to 
// enter another name 


TrClFotere? 4 
wind_write(Wwl, 
4, 
ae 
0 


“Eprop: File Not Found - ESC to continue”, 
mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK)); 


// wait for key press 
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7-2 Continued. 

kb_read(); 
// erase error messages 
wind_repeatichartWl, 3, 2, 50, * *, Wi-dattr): 
wifid_repeat_char(W1l, 4, 2, 50, © °, Wl->attr): 
fclose(fptr); 
goto abort_entry; 

// close the file 

else { 
fc loselfoptr): 

// write the file entry string to the screen 


wind_write(Wl, 4, 1, 31, FILE_entry, Wl->attr); 


// abort file entry process when wind_kb_edit 
// return any key other than ENTER 


else { 
ee abort_file_entry_process; 
// if the mouse is installed then turn it on 
if(mouse_installed) { 
ms_on(); 
// initialize loop exit flag 
exit_flagl= 0; 
// |\oop for key or mouse response to file name 
do { 
// no wait and get key press 
key= kb_status(); 
// if no key press and the mouse is installed 
if((!key) && (mouse_installed)) { 
// get the mouse status 
key= ms_status(&x, &y); 
// mouse press on Y 
if((key == 1) && (x == 264) && (y == 96)) { 


key= K_Y; 
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// mouse press on N 


if((key == 1) && (x == 296) && (y == 96)) { 
key= K_N; 


// mouse press on close window button 


if((key == 1) & (x == 80) && (y == 64)) | 
key= ESCAPE; 


} 
// ENTER and Y evoke same action 


if(key == ENTER) { 
key= K_Y; 


// ESCAPE aborts process 


if( key == ESCAPE) { 
goto abort_file_entry_process; 


// allow for either lower case or upper case entry 


if((key == K_¥) || (key — K_y)) | 
key= K_Y; 

if((key — €.N) || (key = K0 4 
key= K_N; 

iTitkeay == KY) || Chey == BNI) 4 
exit_flagl= 1; 


// loop until exit flag is set 

} while(!exit_flagl); 
// if the mouse is installed turn it off 
if(mouse_installed) { 

Leer 


// erase screen messages 


wind_write(Wl, 2, 19, 31, FILE_open32, Wl->attr); 
wind_write(Wl, 3, 1, 31, FILE_open32, W1l->attr); 


// abort process on N 


if( key == K_N) { 
wind_write(Wl, 3, 1, 31, FILE_open32, Wl->attr); 
wind_write(Wl, 4, 1, 31, FILE_open32, Wl->attr); 
goto abort_entry; 
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7-2 Continued. 
// file add process 


Save_or_noc: 
wind_write(W1l, 4, 1, 31, FILE_add, Wi->attr); 
// if the mouse is installed then turn it on 
if(mouse_installed) { 
ms_on(); 
// initialize the exit flag 
exit_flagl= 0; 
do |{ 
// no wait and get key press 
key= kb_status(); 
// if no key press and the mouse is installed 
if((!key) && (mouse_installed)) { 
// get the mouse status 
key= ms_status(&x, &y); 


// mouse press on Y 


I 


if((key == 1) && (x = 
key= K_Y; 


264) && (y == 96)) | 


// mouse press on N 


ift(key == 1) && (x = 296) && Cy 
key= K_N; 


96)) | 


// mouse press on close window button 
if( (key == 1) && (x == 80) && (y == 64)) { 
key= ESCAPE; 
// ENTER and Y evoke same action 
if(key == ENTER) { 
key= K_Y; 
/f ESCAPE aborts process 


if(key == ESCAPE) { 
goto abort_file_entry_process; 
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// allow for either lower case or upper case entry 


if{ (key == KY) |] (key == Ry)) 4 
key= K_Y; 

if((key == K_N) [| (key == K_n)}) { 
key= K_N; 

if( (key == KY) {| (key == K_ND) { 
exit_flagl= 1; 


// loop until exit flag is set 
} while(!exit_flagl); 
// if the mouse is installed turn it off 


if(mouse_installed) { 
ms_off(): 


// on yes process entry and adjust file counter 


if( key == K_Y) { 
if(file_count == 14) { 
wind_write(Wl.,, 
4, 
Ls 
0 


“Ede Limit Reached - ESC to continue”, 
mk _attr( RED, WHITE, OFF_INTENSITY, OFF_BLINK)); 


// wait for key press 
kb_read(); 
// erase error messages 


wind_repeat_char(Wl, 3, 2, 50, * ’, Wl->attr); 
wind_repeat_char(Wl, 4, 2, 50, * °, Wl--attr); 


goto save_or_not; 
} 


wind_write(Wl, 3, 1, 31, FILE_epens2, Wl->attr); 
wind_write(W1l, 4, 1, 31, FILE_Lopens2, Wl->attr); 
Ti [e.count++: 

goto add_entry; 


// if the mouse is installed turn it on 
if(mouse_installed) { 
ie. Ont } 


// initialize exit flag 
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7-2 Continued. 
exit_flag= 1; 


} while(!exit_flag); 


// 
// jump here on abort of the file entry process 
// 


abort_file_entry_process: 
xentries= file_count + 1; 


// 
// return key_val to calling function 
ia 


xkey val= key; 


fs 
// turn off the mouse 
ie 


if(mouse_installed) { 
me oTTt i: 


i 
// remove window and display original screen information 
// 


wind_remove((WIND «*)W1); 
// 
// destroy the window structure 
fe 
wind_destroy( (WIND «)W1) ; 
ii 
// turn on the mouse 
yy 
if(mouse_installed) { 


ms_on(): 


return cotrptr; 
// 
REPOST LEPEPPEL PEATE EAE EE EL EEE ATI L I E ET sf 


PEP EP ELE PPE E ELE EEL AP TPT PP Pee eT PTT 
// 
// FILE: About dialog box 


void 
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FILE About ALT At) 


WIND *W1; 
UCHAR attrl. attr2, exit_flag= 0; 


int 


// 
// 
// 


// 
// 
// 


// 
re 
// 


// 
// 


// 
ye 
ne 


key= 0, x= 0, y= 0 


initialize attribute 


. 
’ 


attrl= mkuattrt(BLACk, WHITE, OFF_INTENSITY, OFF_BLINK): 
attr2= mk_attr(BLUE, WHITE, OFF_INTENSITY, OFF_BLINK); 


turn off the mouse 


if(mouse_installed) { 
ms_oft(}: 
} 


Initialize Window 


Wl = wind_init(wl, 
4, 
e4 
A+) A 
24429 
attrl 


’ 


DD, 


ie 


write dialog window messages 


wind_write(Wl, 0, 1, 3 
wind_write(Wl, 1, 1, 2 
wind_write(Wl, 2, 1, 2 
wind_write(Wl, 3, 1, 2 
wind_write(Wl, 4, 1, 2 
wind_write(Wl, 5, 1, 2 
wind_write(Wl, 6, 0, 3 
wind_write(Wl, 7, 1, 2 
wind_write(Wl, 8, l, 2 
wind_write(Wl, 9, l, 2 
wind_write(Wl, 10, 0, 

wind_write(Wl, ll, l, 


wind write(Wl1, 12, 13, 


turn on the mouse 


if(mouse_installed) { 
ms_on(); 


30, 
28. 
A. 


aot, wl-rattir?) : 


FILE abouts2, Wl=dsattr): 
FILE ab0uts., ttre): 
FILE _about4, attr2Z): 
FILE _ apoutS, attr2): 
FILE ehouts?, Wi->saterd: 
FILE about _ bar, Wl-dattr): 
FILE about?, a@tir2): 
FILE abouts, atir2 ): 
FILE aboutyo, atir2}: 

FILE about_bar, Wl-Sattr): 

PILE about32, Wi->dattr); 
FILE_ok, mk_attr_inverse(attr2)); 
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ff 
// read the keyboard 
ff 
do { 
// check to see if key press 
key= kb_status(); 
// if no key press then read the mouse 
if((ikey) && (mouse_installed)) { 
// check for button press 
key= ms_status(&x, &y); 
// if button press and mouse on the dot 
if((key == 1) && (x == 208) && (y == 32)) { 
key= ENTER; 
} 
// if button press and mouse on OK 
if((key == 1) && (xX d= 296) && (x <= 320) && (y == 128)) { 
key= ENTER; 
if(key == ENTER) { 
exit_flag= 1; 
} while(!exit_flag); 
// 
// turn off the mouse 
// 
if(mouse_installed) { 
ms Off OC}: 
// 


// remove window and display original screen information 
// 


wind_remove(Wl); 
// 
// destroy the window structure 
// 
wind_destroy(Wl); 
ie 


// turn on the mouse 
// 
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if(mouse_installed) { 
ms_on(); 


PEECLL I PELL ET EAP E PEELE PPE PEL pail 
// 

// print the menu bar 

// 


void print_menu_bar() 
UCHAR attrl, attr2; 


fy 
// make the attributes 
es 
attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr( RED, WHITE, OFF_INTENSITY, OFF_BLINK); 
ie 
// print menu bar 
// 
Sern_Atrri., 2, 60, attri: 
scrn_write(0, 
on 
0, 
“File Print Options Help”, 
attri}: 
if 
// highlight hot keys 
// 
Seriettria, ly la aprrz): // highlight F 
BErH_ALtrCU, ¢s lL, BEEres: // highlight E 
sernatercy, 14, 1, aetr2): // highlight 0 
Ssern_atirciG, 2o, 1y @berci: // highlight H 
fy 
// turn on mouse if installed 
// 
if(mouse_installed) { 
ms_on(); 
fg 


PEPPERS SI ELI AE AT EERE EEL PET ERT EEG Ta 


ECPI L SCPC S SPS See Pere reese eke rors es: 
// 

// open File drop down window 

// 
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int openDD_File() 

UCHAR attrl, attr2, exit_flag= 0; 

char split_items[12]J= { 195, 196, 196, 196, 196, 196, 
196, 196, 196, 196, 196, 180 }; 


RECT «R; 

int key, oldrow= 0, newrow= 0; 
int hy ¥% 

// 

// set attributes 

// 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK); 


// 
// initialize the rectangular structure 
if 
R= setRect(R, 
ds 
iF 
| FS, 
1 - LORs 
// 


// save the screen image under the rectangle 
// 


SaveRect(R); 


// 

// draw a rectangular bos under the File option 
// using a Single sided border (S_S_S_S); 

fi 


boxRect(R, 
5 5. 5_3%, 
attri): 


// 
// attributes change on File option 
// 


SCPnAtiriu, Uy, Gy, @trri}: 
// write the menu items to the screen 


sern_writetz, 
Ts 
0, 
“ Open 
ATLL}: 


scrn_write(3, 
ky 
Q, 
“ EXIt 
eitria: 
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scrn_write(4, 
Q, 
1d, 
split_items, 
a oe oa Oe 


scrn_write(5, 
Ls 
0 
* ADGUT s 2. 
BLCFL Ss 


ScrPrnrattrioldrow + 2, 2, 


SernattriZ. 
i 
ue 
attr2): 


Sernattric, 
ay 
Ls 
attr2): 


strn_attr(s. 
Cs 
Ls 
attire ) : 


// draw highlight bar 


scrn_attr(newrow + 2, l, 


if(mouse_installed) { 
ms_on(); 
ry 
// main keyboard loop 
ry 


do | 


if(oldrow != newrow) 


i f(mouse_installed) 


ns_off(): 


mk _attr_inverse(attrl)); 


// write the menu items to the screen 


Scrn_write(2, 
1a 
0, 
“ Open 


attrl): 


scrn_write(3, 
L, 
0, 
“ EXTt 


attrl);: 
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scern_write(4, 


i? 

12, 
split_items, 
ig 0a at a 


scrn_write(5, 


SCrn_atirtoldraw + 2, 2, 8, attri): 


Ls 

0, 

* ADOUL.« 
etiPl}: 


Scr attri. 


2, 
ie 
attr2): 


scrn_attr(3, 


ma 
Lt; 
attr2): 


scrn_attr(5, 


// draw 


Z ’ 
i” 
etter? ): 


highlight bar 


scrn_attr(newrow + 2, 1, 10, mk_attr_inverse(attrl)); 


oldrow= 


newrow ; 


// if mouse installed turn on the mouse 


if(mouse_installed) { 
ms_on(); 


key= kb_status(); 


if(('key) && (mouse_installed)) { 


key= ms_ 


if( (key 
key= 


if( (key 
key= 
} 


if ( (key 
key= 


Status(&x, &y); 
== 1) && (x >= 8B) && (x <= 
ALT. 0: 


== 1) && (x >= 8B) && (x <= 
ALT xX: 


== 1) && (x d= 8) && (X <= 
ALT_A; 
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(48 + 32)) && Cy 


(48 + 32)) && Cy 


(48 + 32)) && Cy 


16)) 


24)) 


40)) 


if((key == 1) && (Cy >= 8)) { 
key= ESCAPE; 


if({{(kKey == 2) 66 (y >= BI) | 
key= RIGHT_ARROW; 


// process key press 


Switch(key) { 
// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_X; 
} 
else { 
key= ALT_O; 
} 
exit_flag= 1; 
break; 


// select file for printing 
// quit program 
// no action 


case RIGHT_ARROW: 

case RIGHT_ARROW_K: 

case LEFT_ARROW: 

case LEFT_ARROW_K: 

case ALI_A: 

case ALT_O: 

case ALT_X: 

case ESCAPE: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 1) { 
newrow= 3; 
} 
else if(newrow == 3) { 
newrow= 0; 
} 
else { 
newrow++; 
} 
break; 


// move highlight bar up 
case UP_ARROW: 
case UP_ARROW_K: 


if(newrow == 0) { 
newrow= 3; 
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else if(newrow == 3) { 
newrow= 1; 
else { 
newrow--; 
break; 
} 


} while(!exit_flag); 


if(mouse_installed) { 
ms_off(): 
} 


restRect(R); 
dsyRect(R); 


ve 
// return menu bar to original state 


print_menu_bar(); 


if(mouse_installed) { 
ms_on(); 


// 
// return the key press 
ff 


return key; 


// 
SEPP LEC CSET TPE TE ETT CCLER PCRS SECT EE ES, 


See SPP SUS eee rere eee se eee reer re es 
// 

// open Print drop down window 

fz 


int openDD_Print(int num_copies) 
| 

UCHAR attrl, attr2, exit_flag= 0; 
RECT «R; 

char buffer[20]; 

int key, oldrow= 0, newrow= 0; 


int x, ¥: 

fi 

// set attributes 
fi 


attirl= mk_attr( Black, WHITE, OFF_INTENSITY, OFF_BLINK); 
attre= WK_attr( RED, WHITE, OFF_LINTENSITY, OFF_BLINK); 
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// 
ji 
fz 


// 
if 
// 


// 
fi 
ff 
// 


fy 
// 


ei 


initialize the rectangular structure 
R= setRect(R, 

i 

6, 

Le Ss, 

Bb + 22); 


Save the screen image under the rectangle 


SaveRect(R); 


draw a rectangular bos under the File option 
using a Single sided border (S_S_S_S); 


boxRect ( 


J 


attributes change on Print option 


cern attcriv. 8. 7, attri y: 


write the menu items to the screen 
Scrn_write(2, 
1 + 6, 
Se 
“ Number of Copies 
ectril: 


memset(buffer, 0, 10); 
sprintf(buffer,’% 3d”, num_copies); 
scrn_write(2, 

i’ 6 + 16, 

Q, 

buffer, 

ater! 13 


scrn_write(3, 
1 &, 
GO. 
* Start Pent JGb.«. 
eLirL 3: 


scrm_attrialacrow + 2, 2+ 6, Zl], attri} 


SCrrattriz,. 
eo 8, 
LS 
ettrz): 
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scrn_attr(3, 
2 + 6, 
il ’ 
atir? )* 
// draw highlight bar 
scrn_attr(newrow + 2, 1+ 6, 21, mk_attr_inverse(attrl)): 


if(mouse_installed) { 


ms_on(); 
} 
// 
// main keyboard loop 
// 
do { 
if(oldrow != newrow) { 


if(mouse_installed) { 
ms oft (): 


// write the menu items to the screen 


Scrn_write(2, 
L +, 
0, 
“ Number of Copies 
attrl); 


memset(buffer, 0, 10); 
sprintf(buffer,”% 3d”, num_copies); 
scrn_write(2, 

1 +6 + 18, 

0, 

buffer, 

acurl): 


scrn_write(3, 
Ll +. 6, 
0, 
* Stara Print gob... 
attri): 


SCPR_ ALtirioldrow + 2, 2+ 6, ZL. aterl): 


scrn_attr(2, 
2. + 6, 
Lb, 
actre)} 


scrnmattirt(s, 
Zoe Gy 
Ls 
attr?) : 
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// draw highlight bar 
scrn_attr(newrow + 2, 1+ 6, 21, mk_attr_inverse(attrl)):; 
oldrow= newrow; 


if(mouse_installed) { 
ms_on(); 


key= kb_status(); 
if((!key) && (mouse_installed)) { 
key= ms_status(&x, &y); 


if((key == 1) && (x d= 56) && (x <= (56 + (21 * 7))) 
&& (y == 16)) | 
key= ALT_N; 


if((key == 1) && (x >= 56) && (x <= (56 + (21 * 7))) 
&& (y == 24)) { 
key= ALT_S; 


if((key == 1) && (y >= 8)) | 
key= ESCAPE; 


if((key == 2) && Cy >= B)) | 
key= RIGHT_ARROW; 


// process key press 


Switch(key) { 
// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_X; 
else { 
key= ALT_O; 
} 
exit _flag= 1: 
break; 


// select file for printing 
// quit program 
// no action 


case RIGHT_ARROW: 
case RIGHT _ARROW_K: 


File print utility that puts it all together 257 


7-2 Continued. 


case LEFT_ARROW: 

case LEFT _ARROW_K: 

case ALT_N: 

case ALT_S: 

case ESCAPE: 
exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 1) { 
newrow= 0; 
else { 
newrowt++; 
} 
break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= 1; 
else { 
newrow--; 
break; 


} while(!exit_flag); 
// 
// if the mouse is installed turn the mouse off 
// 
if(mouse_installed) { 
ms off(): 
} 
restRect(R); 
dsyRect(R); 
i? 
// return menu bar to original state 
fy 
print_menu_bar(); 


if(mouse_installed) { 


ms_on(); 
// 
// return the key press 
// 
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return key; 


// 
PELELE IL ELLE ELLA CELL LEELA ET 


PELEI EEL PET PLETE TELL TATE EP 
// 

// open Options drop down window 

ff 


int openDD_Options() 
UCHAR attrl, attr2, exit_flag= 0; 


RECT «xR; 

int key, oldrow= 0, newrow= 0; 
Int x 

if 

// set attributes 

// 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK); 


// 
// initialize the rectangular structure 
Pe 
R= setRect(R, 
ib ’ 
Las 
Lob ey 
13 + 24); 
if 
// save the screen image under the rectangle 
ff 


SaveRect(R); 
// 
// draw a rectangular bos under the File option 
// using a Single sided border (S_S_S_S); 
// 
boxRect(R, 
S955, 
attri): 
// 
// attributes change on Options option 
// 
Sscrn_attr(0, 13, 9, attrl); 


// write the menu items to the screen 


scrn_write(2, 
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i + 13, 

0, 

“ Select Printer LPTl 
attri): 


scrn_write(3, 
(ee ee 
0 


“Select Print Options 
attri}: 


scrn_writet(4, 
L + 13, 
0 


“Install Printer Codes “ 
atcrl}: 


SCrn_ALirioldrow + 2, 2 + 19, 23, attri): 


Sern. eters, 
z+ 13 + 7, 
Ly 
attire i: 


SCrhm ALL, 
2 + 13. 
tg 
attir2): 


scrn_attr(4, 
2 * 13, 
1 ’ 
sttfre ie 
// draw highlight bar 
scrn_attr(newrow + 2, 1.4 13, 23, mk_attr_inverse(attrl)): 


if(mouse_installed) { 


ms_on(); 
ed 
// main keyboard loop 
// 
do { 
if(oldrow != newrow) { 


if(mouse_installed) { 
ms_off(): 
} 
// write the menu items to the screen 


scrn_write(2, 
1 + 13, 
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0 ’ 
“ Select Printer LPTIl 
attrl); 


scrn_write(3, 
Lot TS 
0, 
“ Select Print Options 
Gta) j: 


scrn_write(4, 
lL + Is, 
0, 
“ Install Printer Codes ‘ 
Aterl>: 


SCrn ait irialdrow + 2, 2 + 13, 23, attri: 


scrn_attrt(?é, 
2 + IS + f, 
i” 
BCUre }s 


Sern -atttis, 
oom LS 
lL, 
acLres: 


scrn_attr(4, 
2 & 13, 
i” 
attre): 
// draw highlight bar 
oldrow= newrow; 
scrn_attr(newrow + 2, 1+ 13, 23, mk_attr_inverse(attrl)); 
if(mouse_installed) { 
ms orn) : 
key= kb_status(); 
if((!key) && (mouse_installed)) { 
key= ms_status(&x, &y); 
1Titkey == 1) o& (x o= 112) @& (x <= (1llz + (24 & B))) 
&& (y == 16)) { 
key= ALT_P; 
if({(key == 1) @& (x >= 112) && (% <= (1ll2 + (24 # 8))) 
&& (y == 24)) { 


key= ALT_S; 
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if( (key 


key= 


if( (key 
key= 


if ( (key 


== 1) && (x d= 


ALT_I: 


== ]) && (y >= 
ESCAPE: 


== #7) && Cy >= 


key= RIGHT_ARROW; 


// process 


a 


SW 


tch( key ) 


key press 


// Item selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 


else if(newrow == 2) 
key= ALT_I; 


else 
key= ALT_P; 


key= ALT_S; 


exit_flag= 1; 
break; 


Lig) 6 (x 4= (liz + (21 #@ 7))) 
eb {¥ == 32)) 4 

8)) { 

8)) { 


// select file for printing 
// quit program 
// no action 


Case 
Case 
Case 
Case 
Case 
Case 
Cdse€ 
case 


RIGHT ARROW: 
RIGHT _ARROW_K: 
LEFT ARROW: 
LEFT _ARROW_K: 
ALT_Ps 

ALT_S: 

ALT 1: 

ESCAPE ¢ 


exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN_ARROW: 
case DOWN _ARROW_K: 
if(newrow == 2) { 


newrow= 0; 


else { 


newrowt+ ; 


break; 
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// move highlight bar up 


case UP_ARROW: 
case UP _ARROW_K: 
if(newrow == 0) { 
newrow= 2; 
else { 
newrow--; 
break; 
} 


} while(!exit_flag); 


fi 
// if the mouse is installed turn the mouse off 
// 


if(mouse_installed) { 
ms_off(); 


restRect(R); 
dsyRect(R); 


// 
// return menu bar to original state 
fi 

print_menu_bar(); 


if(mouse_installed) { 
ms_on(); 
} 


// 
// return the key press 
ff 


return key; 


if 
PEPEPPL ECS FPS PSEC POSER TEESE SELES ELE Fy: 


SPC Se CRP ELITT OP SES EPO SESS LEVELS LS ees: 
ff 

// open help drop down window 

// 


int openDD_Help() 
| 
UCHAR attrl, attr2, exit_flag= 0; 


REGT «Rs 

int key, oldrow= 0, newrow= 0; 
int R,. ¥: 

fi 


// set attributes 
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// 


// 
// 
// 


// 
ff 
// 


// 
// 
if 
// 


// 
// 
// 


// 


attrl= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
attr2= mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK); 


initialize the rectangular structure 


R= setRect(R, 
Ly 
th. 
Ue care 
22 + 19); 


Save the screen image under the rectangle 
SaveRect(R); 


draw a rectangular bos under the File option 
using a Single sided border (S_S_S_S); 


boxRect ( 


, 


attributes change on Help option 


scrnmattria, 27, 6, avtri); 
write the menu items to the screen 


scrn_write(2, 
bo Pe, 
0, 
“ Program Help... 
attri); 


scrn_write(3, 
1 + 22, 
0, 
“ Dranoel Help... 
aLtriy: 


Scrr attrioidrow * 2. 2 * 22, 5, aLtri}: 


Sscriattriz, 
2 + 22, 
ie 
€Ltrz): 


SOri Atl ris. 
2 + 22, 
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1 ’ 
atLir2)* 


// draw highlight bar 
scrn_attr(newrow + 2, 1+ 22, 18, mk_attr_inverse(attrl)); 


if(mouse_installed) { 


ms_on(); 
// 
// main keyboard loop 
// 
do { 
if(oldrow != newrow) { 


if(mouse_installed) { 
ms_off(); 
} 


// write the menu items to the screen 


scrn_write(2, 
Lo #2, 
ee 
‘ Program Info... 
attrl); 


scrn_write(3, 
Le 22; 
0, 
“ Dranoel Info... 
attrl); 


scrm_attrialdrow + 2, 2+ 22, &, attri): 
SCrn_attr(Z, 
c+ 22, 
is; 
Att Pe): 
Sscrnm_Attr(s, 
2+ 22, 
1, 
AtEKZ I: 
// draw highlight bar 
scrn_attr(newrow + 2, 1+ 22, 18, mk_attr_inverse(attrl)); 
oldrow= newrow; 
if(mouse_installed) { 


ms_ onc): 
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key= kb_status(); 


if((!key) && (mouse_installed)) { 


key= ms_status(&x, &y); 


if( (key == 1) && (x >= 184) && (x <= 
sa fy = 
key= ALT_P; 
if((key == 1) && (x >= 184) && (x <= 
&& (y == 
key= ALT_M; 
if((key == 1) && (y >= 8)) | 
key= ESCAPE; 


if (key == 2) 2e TY P= 8) 1 
key= RIGHT_ARROW; 


// process key press 


Switch(key) { 
// {tem selected so 
// break from the loop 


case ENTER: 
if(newrow == 1) { 
key= ALT_P; 
} 
else { 
key= ALT_M; 
} 
exit_flag= 1; 
break; 


// select program help 
// select mentaur help 
// no action 


case RIGHT_ARROW: 

case RIGHT_ARROW_K: 

case LEFT_ARROW: 

case LEFT_ARROW_K: 

case ALT_P: 

case ALT_M: 

case ESCAPE: 
exit_flag= 1; 
break; 


// quit program 


case ALIT_X: 
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328) 
16)) 


328) 
24)) 


exit_flag= 1; 
break; 


// move highlight bar down 


case DOWN _ARROW_K: 
case DOWN_ARROW: 
if(newrow == 1) { 
newrow= 0; 
} 
else { 
newrow++; 
} 
break; 


// move highlight bar up 


case UP_ARROW: 
case UP_ARROW_K: 
if(newrow == 0) { 
newrow= 1; 
} 
else { 
newrow--; 
} 
break; 
} 


} while(!exit_flag); 
// 
// if the mouse is installed then turn it off 
// 


if(mouse_installed) { 
ms_off(); 


restRect(R); 
dsyRect(R); 
// 
// return menu bar to original state 
// 
print_menu_bar(); 
if(mouse_installed) { 
sont j4 
// 
// return the key press 
iy 


return key; 


// 
PEPLEAETAA TPE TL EL ELTA TERT EA EPP E TA EG EA 
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Sete Ceeeeeeececerreeselerer es eererrres | 
// 

// main function 

// 


void main() 

UCHAR 6ttr2, attra, atira:; 

UCHAR exit_flag= 0, list_created= 0; 
WIND *Wotr, «Wptr2; 

Pile aTpcrs 

ULONG file_length; 

ULONG chars_printed= 0; 

struct PrIncOpt POL: 


char SECDEPDEY, wth, #D1K: 

char *xfile_buffer; 

char bufferLl60]; 

int key, ret_val, num_print_copies= 1; 
int xX, ¥, counter, counterl1; 
int count, entries, ctr: 

int LF_counter= 0; 

int page_length= 58; 

char ascii_buffer[20]; 

neg? page_number= 1; 

// 

// initialize print options members 
jt 


’ 


POl.compress= 0 
PO1.double_strike= 0; 
PO1l.header= 0; 
POl.left_offset= De 


ii 
// initialize the screen 
fy 

Scrninttt): 


if 
// initialize the mouse 
// 


mouse_installed= ms_init(); 
fi 
// initialize attributes 
// 


attr2= mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK); 
dttra= MKaTTPIRED, WHITE, OFF_INTENSITY, ON BLINK): 


if 
// save the current cursor location 
// 
Cu_Save_loc(); 
id 


// save the current cursor size 
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// 


// 
fe 
// 


if 
// 
i? 


// 
{i 
es 


fy 
ry 
e; 


// 
// 
I 


// 
if 
ei 


// 
// 
if 
fy 


Cu_save_size(); 


Save the screen 


Scrn_save(); 


turn off the cursor and mouse 


cCu_remove(); 
if(mouse_installed) { 
ms_off(); 


clear the screen 


scrn_clear(): 


alter screen attributes 


scrn_change_attr(attr2) ; 


print menu bar 


print_menu_bar(); 


fill in block characters 


for(counter= 1: counter < 24: counter++) { 


scrn_repeat_char(counter, 
0 ’ 
80, 
ven 


mk_attr(BLACK, WHITE, OFF_INTENSITY, OFF_BLINK)); 


print exit message at the screen bottom 


lower right 


scrn_write(24, 
OG 
Ol 
“Leave Program: ALI-X”, 
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7-2 Continued. 
mk_attr(RED, WHITE, OFF_INTENSITY, OFF_BLINK)): 


// 
// turn on the mouse if installed 
// 
if(mouse_installed) { 
ms_on(); 
} 
i? 
// main program loop 
// 


do { 
// get the keyboard - no wait for key press 


key= kb_status(); 


// if there is no key press and the 
// mouse is installed then 


if((!key) && (mouse_installed)) { 
// check the status of the mouse 
key= ms_status( &x, &y); 


// if there is a left button press and 

// the mouse is at the top of the screen 
// then (using the data that you obtained 
// from PROG5-2) map the mouse location 
// to the appropriate key press 


iT( (key == 1) 66 Cy == O)) | 


if((x >= 0) && (x <= 40)) { 
key= ALT_F; 


1f((x >= 48) && (x <= 96)) | 
key= ALT_P; 


if((x >= 104) && (x <= 168)) { 
key= ALT_O; 


17 ((% = 176) Oo. 1% <= 216i) 4 
key= ALT_H; 


PER PISI ETP EIS IP EI IP EGE Ee Pi fii i 
// check to see if ALX-X 


if((key == 1) && (y == 192) && (x >= 456) && (x <= 632)) { 


key= ALT_X; 
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// process key press 
new_window: 
Switch(key) | 


case ALI_X: 
exit_flag= 1; 
break; 


case ALI_F: 
if(mouse_installed) { 
ms_off(); 


scrn_write(24, 0, 0, ERASE_message, attr2); 
ret_val= openDD_File(); 


if((ret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) { 
key = ALT_P; 
goto new_window; 


else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 
key = ALT_H; 
goto new_window; 


else if(ret_val == ALT_O) { 

cptrptr= FILE_Open_ALT_O(&ret_val, &entries); 

if(ret_val == K_N) { 
list_created= 1; 
if(mouse_installed) { 

ms orf): 

Wotr= FILE_display_files((char **«)cptrptr, (int) entries); 
if(mouse_installed) | 


ms_on(); 
} 
else { 
for(count= 0; count < entries; count+t++) { 
iffateptrptr + (count * sizeoT(char *#))) l= 0) { 


free((void #)*x(cptrptr + (count * sizeof(char *)))); 
free((void *)cptrptr); 


else if(ret_val == ALT_X) { 
scrnwritetz4, 0, 0, FILE_ALT A. a@ttr2): 
} 
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else | 
FILE About ALT AC): 
} 


if(mouse_installed) | 
ms_on(); 


if(ret_val == ALT_X) { 
exit_flag= 1; 
\ 


J 
break; 
case ALT_P: 
if(mouse_installed) { 
ms_off(); 
scrn_write(24, 0, 0, ERASE _message, attr2); 
ret_val= openDD_Print(num_print_copies) ; 
if(Cret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) { 
key = ALT_O; 
goto new_window; 
else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 
key = ALT_F; 
goto new_window; 
else if(ret_val == ALT_N) { 
Sscrn_write(24, 0, 0, PRINT_ALT_N, attr2); 
else { 
// open print window here 
if(list_created) { 
Wpotr2= PRINT_Start_ALT_S(); 


// allocate memory for file_buffer 


file_buffer= (char *)malloc(FILEMAX) ; 
ch= file_buffer; 


for(counterl= 0; counterl < entries; counterl++) { 


// file print here 


wind_write(Wptr2, 2, 12, 0, «(cptrptr + (counterl x 
sizeof(char *))), attr2d); 


ff initialize Tile buffer 


2/2. Printer management demonstration programs 


memset(file_buffer, O, FILEMAX); 
// open the file for read 


fotr= fopen(*(cptrptr + (counterl #*« sizeof(char «))), 
ia sana 


// read the file into the file buffer 
fread(file_buffer, FILEMAX, 1, fptr); 
// determine the length of the file 
file_length= strlen(file_buffer); 


wind_write(Wptr2, 3, 13, 0, (char «)itoa(file_length, 
buffer, 10), attr2): 


wind_write(Wptr, 4 + counterl, 26, 0, “Printing...”, 
attr3); 


PALATES ELECT EEL EEL TEL ITT T E? 
print_open(0); 


if(POl.compress) { 
print_char(0, PRINTER_CONDENSE_ON); 


if(POl.double_strike) { 
GPIink chart, abso); 
print_char(0, PRINTER_DOUBLE_STRIKE_ON) ; 


if(POl.header) { 
print_char(0, aCR); 
printstring(0, “File Name: “); 
print _string(), 
et CpEerotr + 
(counterl * sizeof(char *)))); 
if(POl.compress) { 
print_set_column(0, 116); 
else { 
print_set_column(0, 60); 
print_string(0, “Page Number: “); 
itoa(page_number, ascii_buffer, 10); 
page_number++; 
print_string(0, ascii_buffer); 
print_char(0, aLF); 
print_set_column(0, 0); 
if(POl.compress) { 
Torcetr= Us ctr < lao) cipee; | 
pri charted, “ys 
else { 
for¢ctir= 0; ctr < 80; ctr?) | 
print_char(0, . 
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print_char(0, aLF); 
print_chart0, alF): 


ETC EEPAT EEL ETI ETI PETER ECE Sd 
// 

// main printer loop 

if 


for(counter= 0; counter < file_length; counter ++) { 


PALER CSESE SER E SECA CEE ESE ELET ELSE, 
// 

// Routine to write file name and 
// page number as header of each 
// page 

// 


if(ach == aLF) { 
if(LF_counter >= page_length) { 
LF_counter= 0; 
print_char(0, PRINTER_FORM_FEED) ; 
if(POl.header) { 
print char(, atk); 
print_string(O. “File Name: “); 
print_string(0O, 
eCcptrptr + 
(counterl x 
sizeof(char «*)))); 
if(POl.compress) { 
print_set_column(0, 116); 
else | ; 
print_set_column(0, 60); 
print_string(0, “Page Number: “); 
jtoa(page_number, ascii_buffer, 10); 
page_number++; 
print_string(0, ascii_buffer); 
pPinechartO, alr}: 
Srint_set_colum(d, 0); 
if(POl.compress) { 
FOrletr= 0s CTY < 136: etree) 1 


oPint cnarig, * 2 os 
else { 
fortctr= O; ctr < B03 ctrer) { 
pPintwenario, *..*): 


print._chartd, aLFd; 
print_char(0, aLF); 
else { 
LF_counter+; 
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} 
printichar(d, xenrr)s 
chars_printed++; 
wind_write(Wptr2, 


4, 

ot 

us 

(char *)itoa(chars_printed, 
buffer, 
10), 

attrai: 


if(POl1.double_strike) { 

print chart(d, @ESC hk: 

print_char(Q, PRINTER_DOUBLE_STRIKE_OFF ) ; 
if(POl.compress) { 

print_chart?, PRINTER_CONDENSE_DFF); 
print_char(Q, PRINTER_FORM_FEED); 


print_close(0); 


wind_write(Wptr, 4 + counterl, 26, 0, “All Done 
attr2); 


// close the file 
fclose(fptr); 
// free the buffer 
free(file_buffer) ; 
wind_write(Wptr2, 5, 2, 0, “Print Job Completed”, attr2); 
kb_read(); 


wind_remove(Wptr) ; 
wind_destroy(Wptr); 


wind_remove(Wptr2) ; 
wind_destroy(Wptr2) ; 


list_created= 0; 
} 


} 
if(mouse_installed) { 
ms_on(); 


} 
break; 
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case ALT_O: 
if(mouse_installed) { 
ms OFT th: 
} 


Scrn_write(24, 0, 0, ERASE_message, attr2); 
ret_val= openDD_Options(); 


if(Cret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) { 
key = ALT_H; 
goto new_window; 
} 


else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 
key = ALT_P; 
goto new_window; 
} 


else if(ret_val == ALT_P) { 
scrn_write(24, 0, 0, OPTIONS ALT P, attr2Z): 
} 


else if(ret_val == ALT_S) { 
key= OPTIONS Set_ALT_S(&PO1);: 
// action here 
} 


else { 
scrn_write(24, 0, 0, OPTIONS ALT J, attr2): 
} 


if(mouse_installed) { 
ms_on(); 
} 

break; 


case AL|_H: 
if(mouse_installed) { 
ms off €}: 
} 


scrn_write(24, 0, 0, ERASE_message, attr2); 
ret_val= openDD_Help(); 


if(Cret_val == RIGHT_ARROW) || (ret_val == RIGHT_ARROW_K)) { 
key = ALT_F; 
goto new_window; 
} 


else if((ret_val == LEFT_ARROW) || (ret_val == LEFT_ARROW_K)) { 
key = ALT_O; 
goto new_window; 
} 


else if(ret_val == ALT_P) { 
scern_wricet24, 0, OG, HELPLALI.P. attr2): 
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else { 
scern_write(24, 0, 0, HELP_ALT_M, attrz); 


if(mouse_installed) { 
ms_on(); 
break; 


} 
} while(!exit_flag); 


if 
// turn off the mouse 
iy 
if(mouse_installed) { 
ns off (}. 
// 
// restore the screen 
fy 


scrn_restore();: 
ff 
// restore cursor location 
ff} 
Cu Pest lott}: 
// 
// restore previously saved cursor size 
if 
Cu_rest_size(); 
// 
// display the cursor 
// 


cu_display(); 


// 
PELE EASE EEE ELISA TEAR TL ERT APA EE TERETE 


Summary 


This chapter presented many useful printer control management func- 
tions. These functions allow you to: 


Summary 2/77 


e Send a character to the printer 
e Send a string of characters to the printer 
e Set the print head to a specified column location 


Chapter 7 completes the presentation of the demonstration programs 
for the OS/2 and DOS C libraries presented in this book. Part 2 presents 
the source code for the OS/2 version of the functions presented in the 
library. Part 3 presents the source code for the DOS version library. 
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Part Two 





OS/2 full screen 
character 
mode library 





Eight source code modules make up the OS/2 Library. Keyboard, mouse, 
and video access is handled via OS/2’s VIO, KBD, and MOUS calls. Marc 
Neuberger and J have assembled the full documentation to the VIO, KBD, 
and MOUS function calls, and the information will be presented (with 
IBM’s blessing) in a forthcoming Windcrest book. 


8 


OS/2 full screen keyboard 
management functions 





This chapter presents the source code to the OS/2 keyboard management 
object module that has been placed in the OS2TEXT.LIB library file. Table 
8-1 repeats the keyboard function prototypes. 


Table 8-1 Keyboard 
function prototypes. 


int kb_edit(char «response, 
int row, 
int column, 
int dlen, 
int opt, 
UCHAR attr); 
int kb_read(void); 
int kb_status(void); 
char kb_char(void); 
UCHAR kb_scan(void); 


Figure 8-1 presents the OS/2 based source code listing to KEY- 
BOARD.C. This source file uses OS/2’s KBD functions as building blocks 
for the migration library’s higher level keyboard routines. 


8-1 The source code listing to KEYBOARD.C. 


SEER PAECEP PELE CEE CEP LEC SPE EEC E RES EE Pee, 
// 

// keyboard.c 

ei 

// OS/2 Version 

ff 

PEPE PIT EE EIS FIP ELA L IRL EIA EF i 


PREC SECTS E SPE S CIES EE TSS ECCT E es: 
// 

// OS/2 defines here 

// 


Htdefine INCL_VIO 

define INCL_KBD 

d#Fdefine INCL_MOU 

4#define INCL _DOSPROCESS 
define INCL _DOSSEMAPHORES 


MELEE I ELESL ECS APOC PEPSI ESL ILE EEE EE 
fi 

// includes here 

ff 


#Hinclude <os2.h> 
#Finclude <string.h> 
#Finclude <ctype.h> 


fFinclude “tproto.h” 


PELPPE ERE PEPE TEP EET IL EL ET PEEP aT EL ETS 
// 

// kb_status 

// 

// Checks for a key press and returns 
ff in @ 16-bit Tormat an S-bit char 

// and 8-bit unsigned char scan codes 
// (Does not stop program execution.. 
// facilitates polling) 

kf 


int kb_status() 
KBDKEYINFO key_code; 


key_code.chScan= 0; 
key_code.chChar= 0; 


KbdCharIn(&key_code, IO_NOWAIT, 0); 


return(mk_token(key_code.chScan, key_code.chChar)); 


PESSESEC CCT PEC EPEC TCL eee rer cee reer eres: 
// 

// kb_read 

Ps 

// Checks for a key press and returns 
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/f in a lo-bit format an 8-bit char 
// and 8-bit unsigned char scan codes 
// (Stop program execution.. 
// 


int kb_read() 
{ 
KBDKEYINFO key_code; 


KbdCharIn(&key_code, 0, 0); 
return(mk_token(key_code.chScan, key _code.chChar)); 


PEPE P ELE EL LEAP E PEPE I IIL PEP PTA 
fi 

// kb_char 

fi 

// Checks for a key press and returns 
// an 8-bit char 

// 


UCHAR kb_char() 

| 

KBDKEYINFO key_code; 
KbdCharIn(&key_code, 0, 0); 


return(key_code.chChar) ; 


PEEEREP EEE EGE PA EEL ET ETP EEE EET 
// 

// kb_scan 

// 

// Checks for a key press and returns 
// an 8-bit scan code 

// 


UCHAR kb_scan() 
| 
KBDKEYINFO key_code; 


KbdCharIn(&key_code, 0, 0); 
return(key_code.chScan); 


PEELE EA EMI LED PEELE EME LEE LES ELLE EEA LETS 
rf 


// kb_edit 

// 

// Alpha-numeric field entry routine 
a 


int kb_edit(char s#response, 


int row, 
int column, 
int dlen, 
are ee 


UCHAR attr) 
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int key; 

int Start, Stoo: 

char xrptr; 

HE Fs 

int ins=0; 

char buf[80]; 

int cur, start_column; 
int ret_val; 

int tlen; 


// set start column for stopper on left arrow 
Start_column= column; 
// save cursor shape and location 


Cur= cu_get_shape(); 
Cu_save_loc(); 


// turn the cursor on 

Cu_display(); 

// place ‘\0’ at end point of response buffer 
*(response + dlen)= 0; 

// make response string upper or lower 


Switch(opt) 

case LOWER: 
Strilwr( response) ; 
break; 

case UPPER: 
Strupr(response) ; 
break; 

case NAME: 
response= strliwr(response) ; 
*xresponse= toupper(#response) ; 
break; 


// copy contents of response buffer to bufL] 
forli= Or 1 < dlen: iy 4 
bufLiJ= responseli]; 


// set start and stop variables 


Start= column; 
Stop= start + dlen; 


// alter screen attributes for edit field 


scrn_attr(row, column, dlen, attr); 
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// if *respo 


if(*xresponse 
scrn_writ 


// adjust cu 
Cu_move(row, 
// set respo 
rptr= respon 
// wait for 
key= kb_read 
// process k 


Switch(key) 
| 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 


Case 
Case 


Case 


nse != 0 then write string to screen 


) { 
e(row, column, 0, response, attr); 


rsor location to response string end 
column+= strlen(response) ); 

nse pointer to end of response buffer 
Se + strlen(response) ; 

key press 

aE: 


ey press first time through 


DOWN_ARROW: 

UP_ARROW_K: 

DOWN_ARROW_K: 

TAB: 

cu_set_shape(cur); // restore cursor shape 
cu_rest_loc(); // restore cursor location 
return( key); // return key press value 


HOME: 

PGUP: 
memset(response, 0, dlen +1); // clear’ response buffer 
rptr= response; // reset pointer 
Sscrn_write(row, start, dlen, response, attr); // clr scrn 
column= start; // reset column to start 
Cu_move(row, column); // adjust cursor location 
break; 


CNTL_LEFTA: 


while(#--rptr!i=’ ‘); // WV pir to * ° cher 


Ppt: // and incr ptr by 1 


6 6 


// adjust cursor if is after start 


if(start_column<start+(int)(rptr-response)) { 


Cu_move(row, column= start + (int)(rptr - response)); 
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else { 
// set column & adjust cursor 


column= start_column; 
Cu_move(row, start_column); 
} 


// write response buffer to screen 


scrn_write(row, start, dlen, response, attr); 
break; 


case LEFT_ARROW: 
case LEFT_ARROW_K: 
ff 1S Cursor fignt of Start? 


if(start column < column) { 
// yes -> adjust cursor left 


Cu_move(row, --column); 
éf @gdjust ptr 


PLS =< 
} 
case END: 
case INSERT: 
case DELETE: 
case RIGHT_ARROW: 
case RIGHT _ARROW_K: 
case PGDN: 
// write response buffer to screen 


SCrh_Writel row, Start, dlen, response, a@bir); 
break; 


default: 
// NULL out scan code 
key&= OxO00ff; 
// set letter case 
Switch(opt) 
{ 
case LOWER: 
key= tolower(key); 
break; 
case UPPER: 
key= toupper(key); 
break; 
} 


// if printable character 


if( (key >= 0x20) && (key <= Ox7e)) { 
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// NULL buffer 

memset(response, 0, dlen+ 1); 
// set pointer to response start 
roir=. response; 

// place key in response 
*xrptr+t+= (char)key; 


// write buffer to screen 


scrn_write(row, start, dlen, response, 


// adjust column pointer 
column= start + 1; 
// adjust cursor position 


Cu_move(row, column); 
} 


// is the key a backspace? 


if(key == aBS) { 
// if column is greater than start 


iftcolinn > start) | 
// backspace in response buffer 


roLr-=4 
// place NULL at new location 
aeoLr= G; 


// write response buffer 


scrn_write(row, start, dlen, response, 


// adjust cursor location 


Cu_move(row, --column); 
} 
} 
break; 
} 


// process key press from now on 


do 
{ 


// adjust case and write 
if(opt == NAME) { 


xresponse= toupper(s#response) ; 
scrn_write(row, start, dlen, response, attr); 
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// stop and wait for key press 
key= kb_read(); 
// process key press 


Switch(key) 

| 

case Fl: // return from vdedit 

Case Pe: // and report key press 

case Fa: 

case F4: 

case F5: 

case Fob: 

case F/: 

case F8: 

case F9: 

case Fl0: 

case UP_ARROW: 

case DOWN_ARROW: 

case UP_ARROW_K: 

case DOWN _ARROW_K: 

case TAB: 

case ENTER: 
cu_set_shape(cur); 
cu_rest_loc(); 
return key; 


Case ESCAPE: 
Ccu_set_shape(cur); 
cu_rest_loc(); 
forti= Osi < dlen; i++) | #f restore origina! 
responseLiJ= bufLlil; // buffer contents 
return key; 


case CNTL_G: 
case DELETE: // delete char and adjust buffer 
forit= OF 1 < stop - ecelumnm + ils 344+] 4 
e(PpEr + Tj= elrpiy + 1 +123 
el Pptr - | + id= 0; 
scrn_write(row, start, dlen, response, attr); 


break; 
case CNIL_T: // erase from cursor to 
while(*rptr && #rptr != * ’) // EOL 


forci= 0: 7 <- step - calwmm + 1: 144) 
et Potr + A= el Potr + Ll iy: 
while(*rptr && *xrptr == “ ”) 
rorti= Us 1 < Stop = Column + ZT: it) 
RUPEE + 1J= al Ptr + lb + 1): 
scrn_write(row, start, dlen, response, attr); 
break; 


case CNIL_END: // erase from cursor to entry end 


memset(rptr, 0, stop - column); 
Sscrn_write(row, start, dlen, response, attr); 
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break; 


case LEFT_ARROW: // move cursor left 
case LEFT _ARROW_K: 
if(start_column < column) { 


Cu_move(row, --column); 
rpEer--: 
break; 
case CNIL_LEFTA: // move by word left 
if(rptr == response) { 
break; 
while(*--rptr == ° ‘ && (Cint){(rptr - response) > Q); 
while(*x--rptr != * * && (int)(rptr - response) > 0); 
if((int)(rptr - response) > 0) { 
Ppcrrr: 


Cu_move(row, column= start + (int)(rptr - response)); 
break; 


case CNTL_RIGHTA: // move by word right 


if(*erptr) { 

while (at+rptr != * * && «rptr); 
if(erptr) { 

while (#t+rpotr == ‘ ° && arptr); 


Cu_move(row, column= start + (int)(rptr - response)); 
break; 


case RIGHT_ARROW: // move cursor right 
case RIGHT_ARROW_K: 


Te Carper 4 
Cu_move(row, ++column); 
hole; 
break; 
case CNTL_BS: // erase entry and start over 


memset(response, 0, dlen + 1); 

rptr= response; 

scrn_write(row, start, dlen, response, attr); 
column= start; 

Cu_move(row,column) ; 

break; 


case HOME: // go to beginning of entry 
Cu_move(row ,column= start); 
rpir= response: 
break; 


case END: // go to end of entry 
Cu_move(row, column= start + strlen(response)); 
rptr= response + strlien(response) ; 
break; 


case CNIL_H: 


case BS: // move cursor back and delete 
if(column>start) { 
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8-1 Continued. 
Pitter -3 
for tie Us 1. < Stop = Colum fF 1: T+F) i 
el POELP + T= el Ppt + fe Ts 
Scrn_write(row, start, dlen, response, attr); 


Cu_move(row, --column); 
else { 
bleep(); 
break; 
case INSERT: // toggle insert and overlay mode 
if(ins) // cursor size adjusted 
ins=0; 


cu_rest_size();: 

else { 
ins= 1; 
Cu_save_size(); 
cu_set_size(0, 14); 
} 

break; 

default: 


// mask 8 bits 
key&= OxO00ff; 
// process option 
Switch (opt) 
a NAME: 
case LOWER: 


// force lower case 


key= tolower(key); 
break; 


case UPPER: 
// force upper case 


key= toupper(key); 
break; 


key&= OxO0fFf; 
// is key printable character? 


if( (key >= 0x20) && (key <= Ox/d)) | 
// is insert key toggled on 


1TFCIAS) { 
// determine length of response 
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tlen= strlen(response); 
// is response less than max response? 
if(tlen < dlen) { 

// relocate string making 

// space for new key 


for (i= dlen; i > (rptr-response); i--) 
responseLiJ= responseLi - 1]; 


// write response buffer 
scrn_write(row, start, dlen, response, attr); 


// is end of edit field not reached? 


if(column < stop) { 
// write char to screen 


scrn_char(row, column, key, attr); 
// place key in buffer 
erptr+t+= (char)key; 
// adjust column 1 right 
column++; 
// move the cursor on the screen 
Cu_move(row, column); 
sige 
// bleep at field end 
bleep(); 


} while(l); 


8-1 Ends. 
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g 


OS/2 full screen cursor 
management functions 





This chapter presents the source code to the OS/2 cursor management 
object module that has been placed in the OS2TEXT.LIB library file. Table 
9-1 repeats the cursor function prototypes. 


Table 9-1 Cursor 
function prototypes. 


void cu_get_loc(int «, int x); 
int cu_get_shape(void); 
void cu _move(int, int): 

void cu_relative move(int, int); 
void cu_remove(void); 

void cu_display(void); 

void cu_save_size(void); 
void cu_rest_size(void); 
void cu_set_size(int, int); 
void cu_save_loc(void): 

void cu_set_shape(int); 

void cu_rest_loc(void); 


Figure 9-1 presents the OS/2 based source code listing to 
CURSOR.C. This source file uses OS/2’s VIO functions as building blocks 
for the migration library’s higher level cursor management routines. 


9-1 The source code listing to CURSOR.C. 
ESLER GRRE CEC CER Cee reser eee ere egrer ere: 
fe 


J? Cursor.c¢ 
if 
FELT E PEEL TLE PEPE SEPP EP PTT haa 


PELE ET PEELE L ES ELIT I IETS ELPA E TT 
// 

// defines required for OS/2 

// 


ftdefine INCL_VIO 

dedefine INCL_KBD 

4edefine INCL _MOU 

ftdefine INCL_DOSPROCESS 
ftdefine INCL_DOSSEMAPHORES 


ARAM RCC C OC SSLE CeCe Pe eee eRe eee eee | 
// 


// include files 
// 


#Hinclude <os2.h> 
#include “tproto.h” 


BEELETIL PETE ETT ETE TT EET TEE at 
re 

// global variables 

if 


USHORT C_row, C_col; 
VIOCURSORINFO save_restore_state; 
VIOCURSORINFO ssize_sr; 
VIOCURSORINFO of f_and_on; 
VIOCURSORINFO off; 

VIOCURSORINFO vioc_temp; 

int G_ CURSOR_VISIBLE= 1; 


PEREPEL ITA ERT TAPP PEPE ETL PIPPI PETE EP ET ia 
// 

// cu_save_loc 

f/ 

// Saves the current cursor row and 

// column location 

es 


void cu_save_loc() 

{ 

} 

CPCs CeCe seer reer eeteceeeteerarrcrce, 
// 


VioGetCurPos(&c_row, &c_col, 0); 


hi CU FEST 1G 

i} 

// Restores a previously saved cursor 
// location 

// 
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void cu_rest_loc() 
{ 


VioSetCurPos(c_row, ¢ col, 0): 


PEPER ELT PREP TP EP RPP PEP Pea EPP Ea Ea i fi 
/ 
// cu_get_loc 


// Saves the current cursor row and 
// column location to parameter 
// variables 


void cu_get_loc(int «row, int xcol) 


{ 
PUSHORE fF, €; 


VioGetCurPos(r, c, 0); 
*rOw= (int)r; 
*COol= (int)c; 

} 


TEE EEE EERE EEE LEP EE EIA T EEA TFTA EE LE 
// 

// Ccu_move 

// 

// Moves the cursor to a specified 

// row and column location 

// 


void cu_move( int row, int col) 
{ 


PEEEE EEE IL ELP ERED PREPPED EP EERE EES 
// 


VioSetCurPos((USHORT)row, (USHORT)col, 


// cu_remove 

if 

// Removes the text cursor from the 
// screen display 

// 


void cu_remove() 

{ 
G_CURSOR_VISIBLE= 0; 
VioGetCurType(&off_and_on, 0); 
off.yStart= 0; 
oTTF.cEnd= 0: 
OFT .cx= Q: 
off.attr= Oxffff; 
VioSetCurType(&off, 0); 


PIPELESSIE SECS STEEL ISS TPES ee sere ee: 
es 


// cu_display 
fe 
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0); 
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9-1 Continued. 


// Displays the text cursor if it is 
// not currently visible 
hy 


void cu_display() 
if(!G_CURSOR_VISIBLE) { 
VioSetCurType( &off_and_on, 0 ); 
G_CURSOR_VISIBLE= 1; 


SOC CURE CCCeCererrcreerceeererscerreces | 
// 


// cu_set_size 

// 

// Sets the block text cursor size 
ii 


void cu_set_size( int top, int bottom ) 
USHORT t, b; 


t= (USHORT)top; 

b= (USHORT)bottom; 
VioGetCurType(&vioc_temp, 0); 
vioc_temp.yStart= t; 
vioc_temp.cEnd= b; 
VioSetCurType(&vioc_temp, 0); 


EPEPSOLSELS POET PERE SESE ECE RSLS E See 
// 


// cu_save_size 

fs 

// Saves the current cursor size to 
// memory 

{i 


void cu_save_size() 
{ 

VioGetCurType(&ssize_sr, 0); 
} 


PEPE CEL ERSLCRS CEPR CE ECLE CR SECS ELE SES! 
Pe 


// cu_rest_size 

// 

// Restores the size of a cursor 
// whose shape had been previously 
// saved 

// 


void cu_rest_size() 
| 
VioSetCurType(&ssize_sr, 0); 


eee 
// 
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// Cu_get_shape 

if 

// Gets the current text cursor shape 
// (as a 16-bit int) 

ff 


int cu_get_shape() 
int shape; 


VioGetCurType(&vioc_temp, 0); 
Shape= (int)vioc_temp.cEnd; 
Shape<<= 8; 

shape|= (int)vioc_temp.yStart; 
return(shape) ; 


CEECCS SER U RECESSES S ICSC SESS CSRS E EES: 
// 


// cu_set_shape 

if 

// Sets the cursor shape using a 
fy 1o*o1e Ht 

// 


void cu_set_shape(int shape) 

| 
vioc_temp.yStart= (USHORT)shape; 
Shape>>= 8; 
vioc_temp.cEnd= (USHORT)Shape; 
VioSetCurType(&vioc_temp, 0); 


CELE ET ELE LTA ELE ELT ILIAD ITP ETT TT 
// 

// bleep 

// 

// Dummy function 

// 


void bleep() 


9-1 Ends. 
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10 


OS/2 full screen 


management functions 





This chapter presents the source code to the OS/2 screen management 
object module that has been placed in the OS2TEXT.LIB library file. Table 
10-1 repeats the screen function prototypes. 


void 


void 
int 

void 
void 
void 
void 
void 
void 
void 


void 


Table 10-1 Screen function prototypes. 


scrn_write(int row, int col, int len, char xstr, 
UCHAR attr); 

scrn_init(void); 

scrn_read_char(unsigned short, unsigned short); 

scrn_save(void); 

scrn_restore(void); 

scrn_clear(void);: 

scrn_attr(int, int, int, unsigned char); 

scrn_change_attr(unsigned char); 

scrn_char(int row, int col, char ch, UCHAR attr); 

scrn_repeat_char(int row, int col, int len, char ch, 

UCHAR attr); 
scrn_chr(int, int, int); 


There are three source modules that all contribute to the library’s 
screen management functionality. These three source files are MAKE.C 
(FIG. 10-1), RECT.C (FIG. 10-2) and SCREEN.C (FIG. 10-3). 


Figure 10-1 presents the source code listing to MAKE.C. Functions 
presented in this source module facilitate the handling of screen attributes 
and tokens. 


10-1 The source code listing to MAKE.C. 


PEELET TTA P ALA EEE LEAT T IT EPP EEE EPP a 
// 

// make.c 

if 

// OS/2 version 

i} 


fi 
// include file 
ff 


fFinclude “tproto.h” 


PEEEPER TET EET T PPT Ld i ie 
// 

// mk_attr 

i? 

// Makes an attribute 

a 


UCHAR mk_attr(UCHAR fore, 
UCHAR back, 
UCHAR inten, 
UCHAR blink) 
| 
UCHAR attr; 
attr= back << 4; 
return((UCHAR) attr | fore | inten | blink ); 


PELLET TREE EEE EEE II TTI EEE TET a 
Mes 

// mk_attr_intense 

re 

// Makes an existing attribute 

// intense 

// 


UCHAR mk_attr_intense(UCHAR attr) 
{ 

return(attr | ON_INTENSITY); 
} 


PREP ELETI IIT E CRT aie 
2 

// mk_attr_intense_blink 

es 

// Makes an existing attribute intense 
// and blink 

// 


UCHAR mk_attr_intense_blink(UCHAR attr) 
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return(attr | ON_INTENSITY | ON_BLINK); 


PELECE SEP SEL ECS SE SPE LE SET Lee Re cere 
ie 

// mk_attr_blink 

ei 

// Makes an existing attribute blink 

// 


UCHAR mk_attr_blink(UCHAR attr) 
| 
return(attr | ON BLINK); 


PEEP EPTP EEE EEPT EET PEEP EEL TTA ELA a 
ie 

// mk_attr_inverse 

// 

// Makes an existing attribute 

// inverse 

as 


UCHAR mk_attr_inverse(UCHAR attr) 
| 
UCHAR ul,u2; 

Uul= attr & Oxff; 

ue= us 

u2<<= 4; 

return (u2 | (ul >> 4)) & Ox/7f; 


PELE RLEAL TP EL IITA TP EL AEE PPP EE EE aT i 
// 

// mk_token 

// 

// Makes a token 

// 


int mk_token(UCHAR ch, UCHAR attr) 
{ 
int ret_val; 

ret_val= 0; 

ret_val= ch; 

return ((ret_val << 8) | attr); 
} 


eeeeeceeeeseterieses seer eeerrereceaere, 
ie 

// mk_char_attr 

if 

// Takes a screen token and returns an 
// 8-bit char and 8-bit unsigned char 
// attribute via pointers passed as 

// parameters 

// 
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void mk_char_attr(int token, char «ch, UCHAR xattr) 
{ 

xattr= (UCHAR)token & OxO0O0ff:; 

token>>= 8; 

*xch= (UCHAR) token: 


10-1 Ends. 


Figure 10-2 presents the source code listing to RECT.C. This source 
module presents functions that facilitate the management of rectangular 
portions of the screen. 


10-2 The source code listing to RECT.C. 
SELES LESI ECR OS SPSL IST SEES ESSE eee e se; 
i 


// rect.c 

ry 

// OS/2 Version 
// 


fHinclude <stdlib.h> 
fHinclude <stdio.h> 
#tinclude <malloc.h> 
#Hinclude <string.h> 


#Hinclude “tproto.h” 


Static 

Cher ourfszc80)] = { 32, 32, 32, 32; 32, 32, 32, 32, 22, 
Sl, S25 Gly 32, 32, 3€, Sf, 32, 32, 
32, 32, 32, 3¢, 32, 32, 32, 32, 32, 
Sf; Wey Oey Of, 32, 32, S32, 34, 32, 
Bes Ses Ole Sle OCs SLs Btw Sei. SC; 
S24 Bee Ole oly O26 Ole Gte oes Of, 
a2, G¢@, 32, Sf, Sl, 32% 32, 325 32, 
Sf, Je, Gly See Of, Bey ot, Se, 32 f° 


PPPI LESTE PIPEET APE TELE EE EP Ea Pei by 
il 

// saveRect 

// 

// Saves a rectangular image to 

// memory 

ff 


void saveRect(RECT xR) 
{ 

unsigned int xiptr; 
int row; 

int column; 


iptr= (unsigned int *)R->image; 


for(row= R->ul_row; row <= R->I|Ir_row; rowtt) { 
for(column= R->ul_col; column <= R->Ir_col; column++) { 
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*x1ptr++= scrn_read_char(row, column); 


PEPER EE EE TEE EA PT PIPETTES TAT EE aT ia dd 
ig 

// restRect 

// 

// Restores a previously saved 

// rectangular image 

ig 


void restRect(RECT xR) 


{ 
unsigned int xiptr; 


int row, token; 
1G column; 
UCHAR acGrs 

char cn: 


iptr= (unsigned int *) R->image; 


for(row= R->ul_row; row <= R->1|]r_row; rowt+t+) { 
for(column= R->ul_col; column <= R->1Ir_col; column++) { 
token= *xiptr++; 
mk_char_attr(token, &ch, &attr); 
Sstrnmicnart row. column, ch, attr): 
} 


FELL EEL EGET ISIS EEE EFPIA at 
// 

// setRect 

ry 

// Initializes a RECT structure 

// 


RECT *xsetRect(RECT *R, int ur, int uc, int Ir, int Ic) 
{ 
int size; 
R= (RECT «)malloc(sizeof(RECT)); 
ITGARY 4 
sern_clear(): 
Cu_display(); 
Ccu_move(0, 0); 
printf( “Memory allocation Error: setRect\n”); 
exit(Q); 
} 
R->ul_row= ur; 
R=>uUlcol= uc: 
Ro? | f_tow= If: 
Ree i Pocol= le: 
Size= sizeRect(R); 
R->image= (unsigned int *)calloc(size, sizeof(int)); 
returncR) : 
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FESTA LEAT ELLER ELST ER CTR ERTIES PET ae 
rz 

// sizeRect 

ie 

// Calculates the size of a rectangular 
// screen image 

ei 


unsigned int sizeRect(RECT #*R) 
int height, width, size; 


height= R->Ir_row - R->ul_row + 1; 
width= R=>lrieo] =~ R=sul_eal + 1: 
Size= height « width; 
return(size); 


POPPE PCC E CeCe eee eer eer ere earners: 
// 

// dsyRect 

fi 

// Destroys a rectangular structure 

// by freeing previously allocated 

// memory 

iy 


void dsyRect(RECT xR) 

| 
free((void *)R->image) ; 
free((void «)R); 


Peete eee eee eee ec eee eee eee eae Ee: 
xy 

// subRect 

// 

// Subracts a one RECT structure 

// from another 

Ie 


void subRect( RECT xdestR, RECT xsrceR ) 
{ 

srceR->ul_row; 
SPceR->ul_e6l: 
srceR->I|Ir_row; 
srceR=>]r_¢ol : 


destR->ul_row- 
destk-2-ul_col- 
destR->|r_row- 
destR->Ir_col- 


FEEL E LSE IE OTLE EET EL ETE POPE a 
iz 

// addRect 

fi 

// Adds one RECT structure to another 
// 


void addRect(RECT «destR, RECT «xsrceR) 
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destR->ul_rowt= srceR->ul_row; 
déstR=>ul_ col+= srceR->ul_col: 
destR->|r_rowt+= srceR->|]r_row; 
destR-)|lr_colt= srcek->lr_col;: 


PEPE TERT TAIL ELL PAPEL EPL ATT AT Pa a 
// 

// dupRect 

// 

// Duplicates one RECT structure 

// with another 


void dupRect( RECT *xdestR, RECT xsrceR) 
{ 
destR->ul_row= srceR->ul_row; 
destR->ul_col= srceR->ul_col; 
destR->Ir_row= srceR->I|r_row; 
destR->|Ir_col= srceR->Ir_col; 


PEEL ESEPEEL EEE ELT TEEPE PIT aa es 
// 

// clrRect 

// 

// Clears a RECT structure using the 

// NORMAL (7) screen attribute 

fi 


void clrRect(RECT xR) 
int row; 

int column; 

int row_stop, col_stop; 
int token; 


row_Stop= R->I|r_row; 
col_stop=— R=? 1 r_col: 


for(row= R->ul_row; row < row_stop; rowtt+) { 
for(column= R->ul_col; column < col_stop; column++) { 
scrn_char( row, column, ‘ ’, 7 ); 


PEEETIT PEPE IP SEL E ATA E TEEPE PPT PPP ei 
// 

// of fRect 

if 

// Shifts the row and column locations 
// within a RECT structure by the 

// offset values. 

‘i 


void offRect( RECT #«destR, int row_off, int col_off ) 


{ 
destR->ul_rowt+= row_off; 
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destk-2ul colt col off: 

destR->|r_rowt= row_off: 

destR->Ir_col+= col_off: 
} 


FELIPE CLEP PP ELL EPPA P TIT ELT i ab ii 
// 

// boxRect 

// 

// Places a border around a rectangle 
// 


void boxRect(RECT *R, int box_type, unsigned char attr) 
| 

int row,column; 

int token; 

It TOp_OOT, LaTtright, Ul, Ur, Il, Ire ¢7 bom choices 


Switch(box_type) 

| 

case I; 
top. bot 196: 
left_right= 186; 
ul= 214; 
ur= 183; 
J1= 211; 
lr= 189; 
break; 

case 2: 
top_bot= 205; 
left_right= 179; 
ui= 213; 
ur= 184; 
ll= 212: 
lr= 190; 
break; 

case 3: 
top pot= 205; 
left_right= 186; 
ul= 201; 
ur= 187; 
11= 200; 
lr= 188; 
break; 

default: 
top_bot= 196; 
left_right= 179; 
ul= 2128: 
ur= 191; 
Tt= 192: 
lr= 217; 
break; 


for(row= R->ul_row; row < R->Ir_row; rowt+) { 


scrn_wi tecrow, R=>ul_col, R-alrocol - R-sul_ecol, burra, 


// draw top and bottom 
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attr); 


for(column= R->ul_col; column < R->Ir_col; ++column) { 
scPn_chart(R-2ul_row, column, tLop_bot, attr): 
scrn_char(R-> r_pow, column, top bot, attr); 


// draw left and right borders 


for(row= R->ul_row; row < R->Ir_row; +trow) { 
ecrn_char(row, R->uUl_col, leftright, attr): 
scrm_chertrow, R-2lrecol, lertoright, attr}: 


// plop the four corners 

sern_ehar(R-sul_row, R-sul_col, ul, attr): 
scrn_char(R-Jul_row, R-elPcol, ur, attri: 
scrn_cher(R-slr_row, R--ulcol, li, attr): 


scrn_chartR-slr_row, R-slr_col., Ir, attr): 


10-2 Ends. 


Figure 10-3 presents the OS/2 based source code listing to 
SCREEN.C. This source file uses OS/2’s VIO functions as building blocks 
for the migration library’s higher level screen management routines. 


10-3. The source code listing to SCREEN.C. 


POPPE eres eee esse eee eee ree cer eee 
yy 

// screen.c 

es 

// OS/2 Version 

ie 

PEELE EEE LETTER EPCRA CEST CT OTE T TEESE 


LEGREEERLED REEL EEE ELT BEET EERIE EET PET LE 
id 

// defines required for OS/2 

// 


4tdefine INCL_VIO 

4#tdefine INCL_KBD 

4tdefine INCL_MOU 

define INCL_DOSPROCESS 
#define INCL_DOSSEMAPHORES 


epereeecresrreerceerrereerrrercrrreeaes: 
// 

// include files 

// 


fHinclude <os2.h> 
#FHinclude <string.h> 
#include <ctype.h> 


f#include “tproto.h” 
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PELIPTEELE ETAL TEEPE PLEA PIII PPE EP ee 
// | 

/?/ static burfters 

// 


static UCHAR scrn_bufL(80 * 25) «* 2]: 


Static char ourfs2leul= { 32, 32, 32, 32, 
Seg dew See Os 
32. Sc. Jae. 32, 
32, Of, 32, 32% 
32, 325 32, Ses 
32, 32, 322, 32, 
32, 22, oe, de, 
$2, 32, 32, 32. 


PEEL EE EA ELELEU SELES ESE ET SGRS EERE LEE LS 
// 

// scrn_save 

// 

// Saves the screen image to memory 

is 


void scrn_save() 
{ 

HVIO hvio= 0; 
UCHAR xcptr; 
USHORT row; 
USHORT column; 
USHORT length; 


cpotr= (unsigned char #)scern_bur; 
length= 160; 


for(row= 0 ; row < 25; rowtt+) { 


VioReadCellStr(cptr, &length, row, 


cptr+= length; 


PEEL EL EP EEE EE PE EEL IP EL PEL LPL EP EP Pa EL 
// 

// scrn_restore 

ff 

// Restore a screen image that had 

// been previously saved 

// 


void scrn_restore() 
HV IO hvio= 0; 
UCHAR xcptr; 
USHORT row; 

USHORT column; 
USHORT length; 


cptr= (unsigned char *)scrn_buf; 
length= 160; 


308 OS/2 full screen management functions 


ran 


32 


Ie 
eae 
a2 
ha 
ae 


0, 


y Mee 


hvio); 


oes 
Be 
ae 
Bes 
< es 
Oe 3 
g -aey 
. oes 


32, 
32. 
32. 
32. 
32. 


Se 
Sey 


for(row= 0; row < 160; rowt+t) | 
VioWrtCellStr(cptr, length, row, 0, 
cptr+= length; 


PELEL ELTA TA ETT ALATA PTET EPEC EE a il 
// 

// scrn_—clear 

ef 

// Clear the screen using the NORMAL 

// (7) attribute 

// 


void scrn_clear() 
{ 
int row; 


for(row= 0: row < 25: row ++) { 
scrn_write(row, 0, 80, buff32, 7); 
} 


PEPELETAT ETAL ATER LTA ETAT TAT ETP Ppa iL bs 
// 

// scrn_change_attr 

iy 

// Changes the attribute for the 

// entire screen without altering the 
// characters 

// 


void scrn_change_attr(unsigned char attr) 
{ 
int row; 


for(row= 0; row < 25; row ++) { 
sern_attrirow, Oo, 60, attr): 


PLEPEEL ELL ELI IL EL EPL EPEP EL PEEP PELE ETT ET 
ff 

// serniuenr 

// 

// Writes a screen token (char + 

// (256 * attr)) to a specified row and 
// column screen location 

iy 


void scrn_chr(int row, int col, int token) 


{ 

USHORT Fr, ¢% 
UCHAR at; 
char oA 


r= (USHORT) row; 
c= (USHORT)col; 


hvio); 
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ch= (char)token; 

token= token >> 8; 

at= (UCHAR)token; 
sern_chartrow, col, ch, at): 


PET EEL EET EE REE PITT AT EET PAP Pa eRe aT aed 
// 

// scrn_repeat_char 

// 

// Repeats a character on a row to the 
// screen a specified number of times 
// 


void scrn_repeat_char(int row, int col, int len, char ch, 


{ 
int counter; 


for(counter= 0; counter < len; counter++) { 
scrnm_ chart row, cole, ch, attri: 


PREEAP EPPA EL EP EAE TERI PEPE aT PE i es 


// Internal function that draws a 
// lined border around a rectangle 
if 


void vdBox(RECT *«R, int box_type, unsigned char attr) 
int row, column; 
int. top.b0b, lefbirignt, Ul, wr, tly ifs 


Switch(box_type) 
| 
case l: 
Lop.bot = 196; 
left_right = 186; 


ul = 2)]4: 

ur = 183; 

ll = 211: 

lr = 189; 

break 
case 2 


left_right = 179; 
ul Zi3% 
ur 184; 
1] Zl: 
Tr 190; 
break; 
case 3: 
Loo. bat = 205% 
left_right = 186; 
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UCHAR attr) 


ul = 201; 

ar = 1e/e 

11 = 200; 

If = 188: 

break; 
default: 

top_bot = 196; 

left_right = 179; 

ul = 218; 

ur = 191; 

1] = 192; 

lr = 217; 

break; 


for(row= R->ul_row; 
scrn_write(row, 
} 


R-Pul col, 


// draw top and bottom 
for(column= R->ul_col; 
scrn_char(R->ul_row, 
scrn_cher(R--sir_row, 
// draw left and right 


for(row= R->ul_row; 


row < R->Ir_row; 
a PIP ee] 


borders 


rowt++) { 


~ R=>l col, DUTT 32, abir): 


column < R->|Ir_col; ++column) { 
CcOlUMN, COB DOT, attr): 
column, top_bot, attr); 


row < R->1P_row: +t+row) { 


scrn_chartrow, R-7ul_ocol, leTt_rignt, attr); 
er wontons Rh“? 1 Fee), L@TEPrignt.,. attr: 
// plop the four corners 
scrn_chart(R-sul_row, R->ul_eol, ul, attr): 
sern_charcR=s0l_ row, K-? 1r_cel, Ur, airy: 
sern_chart(R-2lrrow, R-pul_col, il, attr): 
scrrchartR-~>lr_row, R->1r_col, If, attr): 


EASES ECESOCSCSES SPURS TOCE SCORE Ce eee es 


// 
// scrn_write 
// 


// Writes a string to the screen using 


// a specified attribute 
// 


void scrn_write(int row, int col, 


| 
HVIO hvio= 0; 
unsigned char bAttr; 


bAttr= attr; 


if(!len) { 
len= strien(str); 


int len, 


char «str, UCHAR attr) 
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10-3 Continued. 


VioWrtCharStrAtt( str, 
len, 
row, 
col, 
&bAttr, 
hvio ); 


DUE EE ER EIT ITT TPIT EPS TPT SET ETT 
// 

/# sern_char 

fi 

// Writes a character to the screen 

// at a specified row and column 

// location 

// 


void scrn_char(int row, int col, char ch, UCHAR attr) 
{ 


HVIO hvio= 0; 
UCHAR bAttr; 
bAttr= attr; 
VioWrtCharStrdAtt( &ch, 
1 > 
row, 
col, 
&bAttr, 
hvio ): 


SESE CLSL CEC STEP ESC R CRTC CECE: 
// 


ff SOrn- attr 

ff 

// This function alters a screen 
// attribute without altering the 
// character associated with that 
// attribute 

// 


void scrn_attr(int row, int col, int len, unsigned char attr) 
{ 

HVIO hvio= 0; 

UCHAR bAttr; 


bAttr= attr; 


VioWrtNAttr( &bAttr, 
len, 
row, 
col, 
hvio }: 
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PETE EL EL ETL PELE T ATT EP PTT fai ai 
if 

// scrn_read_char 

// 

// Reads a character and attribute 

// from a specified row and column 

// screen location 

// 


int scrn_read_char(USHORT row, USHORT col) 
HV IO hvio= 0; 

char buffer[2]: 

PCH Str: 

USHORT length= 2; 


Str= buffer; 
VioReadCellStr(str, &length, (USHORT)row, (USHORT)col, hvio); 


return(mk_token(«str, «(str + 1))); 
} 


PEL EET ETT ET TEEPE TEE ETT ELE PEL aT 
// 

ff Sern_init 

// 

// Empty function for OS/2 library 

// included to facilitate migration 

// from DOS to OS/2 

// 


void scrn_init() 
| 


PESPEELELEELT EUCLA TIES T EE ET PEI EL TT 
ee 

if rdlmg 

// 

// Reads a rectangular portion of a 

// screen defined within the 

// WIND structure to memory 

// 


void rdImg(WIND xR) 
{ 

HV IO hvio= 0; 
UCHAR -«cptr; 
USHORT row; 

USHORT column; 
USHORT length; 


cptr= (UCHAR *)R->img_ptr; 
1ength= CR-21fcol - B->ulieal) + 1; 
lengthx= 2; 


for(row= R->ul_row; row <= R->]r_row; row++) { 
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10-3 Continued. 


VioReadCellStr(cptr, &length, row, R->ul_col, hvio); 
cptr+= (length «* 2); 


PEPEPEPEE ERT PPE P ETAT EET ETA AE Ea PEE Ee 


// 


// wrimg 


// 
// 
fT 
if 
// 


Writes a rectangular portion of a 
screen defined within the 
WIND structure to the screen 


void wrIlmg(WIND xR) 


HV1O hvio= 0; 

UCHAR xcptr; 

USHORT row; i 
USHORT column; 

USHORT length; 


cptr= (unsigned char *)R->img_ptr; 
length= (R<->|r_col - R->dul_col) + 1; 
lengthx= 2; 


for(row= R->ul_row; row <= R->I]r_row; rowt+t+) | 
VioWrtCellStr(cptr, length, row, R->ul_col, hvio); 
cptr+= (length «* 2); 


PELECEE SS ESE EPL ELE PRES ECE RESO L ECS EEE | 


// 
// 
pe 
Ef 
// 
// 
// 


rdWind 


Reads a rectangular portion of a 
screen defined within the 
WIND structure to memory 


void rdWind(WIND xR) 


HV IO hvio= 0; 
UCHAR xcptr; 
USHORT row; 
USHORT column; 
USHORT length; 


cpotr= (UCHAR *)R->wind_ptr; 
length= (R=>lr_eol - R-sul_ool) + 1; 
length «= 2; 


for(row= R->ul_row; row <= R->]r_row; rowt+) { 
VioReadCellStr(cptr, &length, row, R->ul_col, hvio); 
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cptrt+t= (length * 2); 


CREE SELES EC EL CEE SERRE ELEC ELCCEEILL SE, 
// 

// wrWind 

iif 

// Writes a rectangular portion of a 

// screen defined within the 

// WIND structure to the screen 

// 


void wrWind(WIND xR) 
{ 

HV IO hvio= 0; 
UCHAR xcptr; 

USHORT row; 

USHORT column; 
USHORT length; 


cptr= (UCHAR «*)R->wind_ptr; 
lengtn= (R=? lf c6! = R-pulcol]) + 1: 
length #= 2; 


for(row= R->ul_row; row <= R->|]r_row;: row++) { 


VioWrtCellStr(cptr, length, row, 
cptr+= (length # 2); 


ERLE CRRA IR EASTER ELEC ECE CELE eee Rae SE: 
ff 

// wrBox 

ry 

// Internal function that draws a 

// lined border around a rectangle 

if 


void wrBox(WIND xR) 
int row,column; 
int token; 


R->ul_col, hvio); 


int top bet, lett right, ul, ur, tl, Wr: 


Switch(R->box_type) 
{ 
case l: 
top bot = 196; 
left_right = 186; 


ul = 214; 
ur = 183; 
1] = 212: 
lr = 189; 
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10-3 Continued. 


break; 

case 2: 
top_bot = 205: 
left_right = 179; 


ul = 2133 

ur = 184; 

li = 212; 

lr = 190; 

break; 
case 3: 


top_bot = 205; 
left_right = 186; 


ul = 201; 

ur = 187; 

11 = 200; 

Ir = 188: 

break; 
default: 

top_bot = 196; 

left_right = 179; 

ut = 218: 

ur = 191; 

1] = 92; 

ly = Zifs 

break; 


token = mk_token((int)’® *,R->attr); 

for(row= R->ul_row; row < R->]r_row; rowt+) { 
sern writé(row, R-2ul_ col, R-pir col - R--4ul col, Burrad, R= 2attr): 

// draw top and bottom 

for(column= R->ul_col; column < R->|]r_—col; ++column) { 
scrnm_char(R->ul_row, column, top_bot, R-sattr): 
scrn_char(R->Ir_row, column, top_bot, R->attr); 

// draw left and right borders 

for(row= R->ul_row; row < R->Ir_row; ++row) { 
scrn_char(row, R-Ful_col, bertright, K--attr): 
strn_chartrow, Reslrieceal, leftoriant, R-eattr): 

// plop the four corners 

scrn_chartR=sul_row, R<-2ul_col, ul, R-2attr): 

sern_char(R->ul_row, R->lf.col, ur, R->attr): 


sern_enartRh->lf_ row, R-PoLcol. 11, R=rattr): 


scrn_ chartk->1rrow, B-difcol, Ir, R->attr): 
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PELE EEE EL TT LAT aa 
Vs 

// sizelImg 

// 

// Calculates the size of the memory 

// required to hold a window image 

// 


unsigned int sizeImg(WIND xR) 
| 
int height, width, size; 


height= R->Ir_row - R->ul_row; 
width= R->1r_col - R-dul_col: 
++height; 

++width; 

Size= height « width; 
return(size); 


10-3 Ends. 
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17 


OS/2 mouse 
management functions 





This chapter presents the source code to the OS/2 mouse management 
object module that has been placed in the OS2TEXT.LIB library file. Table 
11-1 repeats the mouse function prototypes. 


Table 11-1 High level mouse function prototypes. 


int ms_init(void); 

void ms_on(void); 

void ms_off(void); 

int ms_status(int «x, int xy); 

void ms_map_display(int row, int col, int key_val); 


Figure 11-1 presents the OS/2 based source code listing to 
MOUSE.C. This function uses OS/2’s MOUS functions that reflect object 
modules contained in the OS2TEXT.LIB library file. 


11-1 The source code listing to MOUSE.C. 


eee ere eee eee eee eer eeeeereeeseicase: 
// 

// mouse.c 

// 

// OS/2 Version 

ff 

REL EER EPEC CLEAR CE TERA E RET REET TEES 


11-1 Continued. 


SEES CESS L ESSE SESE LS CCC SER erie 
// 

// OS/2 defines here 

// 


#fdefine INCL_VIO 

define INCL_KBD 

#Fdefine INCL_MOU 

#fdefine INCL_DOSPROCESS 
#fdefine INCL_DOSSEMAPHORES 


PPP PEPPPL PEL ERLE LE ATT EEE TET 
// 


// includes here 
// 


fFinclude <os2.h> 
fHinclude “tproto.h” 


STEELE ATT T PERTTI GT A Ea i a 
i 

// global variables 

re 


MOUEVENTINFO mouev; 
HMOU mouse_handle; 


FEEL ITT EEE IL EOE PIPE TELE T E Tea it 
// 

// ms_init 

fd 

// Initialize the mouse for use 

// 


int ms_init() 
USHORT buttons= 0; 
MouOpen(NULL, &mouse_handle); 


MouGetNumButtons( &buttons, mouse_handle); 
return buttons; 


SESE LCE ELERC ELEC PEACE R SCTE Ce eeee) 
i} 
// ms_off 
// 
// Turn off the mouse 
// 
void ms_off() 
NOPTRRECT mourt= {0,0,24,79}; 
MouRemovePtr( &mourt, mouse_handle ); 
} 


FEPEPERTE PLETE TAT AE ALT ES ETA TPT LT Ea 
ff 
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// msS_on 

// 

// turn on the mouse 
// 


void ms_on() 
{ 
USHORT status= 0; 


MouDrawPtr( mouse_handle ); 


FEPELE RPI TIPE ITEP aL IIIT Tis 
el 

// ms_status 

re 

// Reports button press status and 

// the row and column location of the 
// mouse. The information is only 

// reported on a button press event. 

fy 


int ms_status(int *x, int #y) 
USHORT fWait = MOU_NOWAIT; 


MouReadEventQue(&mouev, &fWait, mouse_handle); 


if(mouev.time) { 
if(mouev.fs & MOUSE _BN1_DOWN ) { 
*Y= mouev.row x« 8; 
*X= mouev.col x 8; 
ift (Cine )mousey.Ts == 4) || (Cintimouey.fs == 2) 3 | 
MouFlushQue(mouse_handle) ; 
return(1); 
else 
return(lintio): 
if(mouev.fs & MOUSE _BN2 DOWN ) { 
*Y= mouev.row x 8; 
*X= mouev.col x« 8; 
if( (Cint)mouey.fs == 16) {| 
MouFlushQue(mouse_handle); 
return(2):; 
else 
return((int)0); 


((int)mouev.fs == 8) ) { 


else { 
return((int)0); 
reLurn CLiIntJa): 


COR CURGU CES ESEC CARER Pee erorerreeeeregs: 
fy 

// ms_map_display 

// 
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11-1 Continued. 


// Reports the mouse location on the 

// screen when there is a button press. 
// This function wil prove invaluable 
// in creating dialog boxes and 

// menus. 

ha 


void ms_map_display(int row, int col, int key_val) 
UCHAR exit_flag= 0; 

char bufferl20]; 

int key; 

int x= 0, y= 0; 


do | 


key= kb_status(); 


if('tkey) { 
key= ms_status(&x, &y); 
if(key == 1) { 
Sscrn_write(row, col, 0, “Left Button Press “, 7); 
} 
if( key == 2) { 


sern_write(row, col, U, “Right Button Press”, #): 
memset(buffer, 0, 20); 
sprintf(buffer,”’x= 403d y= pUSd”, &, ¥)4 
scrn_writetrow + 1, ¢ol, 0. bufTrer., 7): 


if(key == key_val) { 
exit_flag= 1; 


} while(lexit_flag); 


11-1 Ends. 
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12 


OS/2 full screen window 
management functions 





This chapter presents the source code to the OS/2 window management 
object module that has been placed in the OS2TEXT.LIB library file. Table 
12-1 repeats the high level window function prototypes. 


Table 12-1 High Level window function prototypes. 


WIND 


int 


void 
void 
void 
void 


*xwind_init(WIND «W_PTR, 
int ulr, 
int ulc, 
int Irr, 
int Irc, 
UCHAR attr, 
int border, 
char stitle ); 
wind_kb_edit(WIND «W, 
char «response, 
int row, 
int column, 
int dlen, 
int opt, 
UCHAR attr); 
wind_display(WIND +); 
wind_remove(WIND x); 
wind_attr(WIND «x, int, int, int, unsigned char); 
wind_write(WIND x, int, int , int , char «, UCHAR); 


Table 12-1 Continued. 


void wind_char(WIND «x, int row, int col, char ch, 
UCHAR attr); 
void wind_repeat_char(WIND «, int row, int col, int len, 


char ch, UCHAR attr); 
void wind_destroy(WIND +); 


int wind_read_char(WIND +s, int, int); 
void wind_clear(void); 
void wind_cu_move(WIND =, int, int); 


Figure 12-1 presents the OS/2 based source code listing to 
WINDOW.C. This source file uses functions presented in RECT.C, 
MAKE.C, and SCREEN.C as building blocks for the migration library’s 
higher level window management routines. 


12-1 The source code listing to WINDOW.C. 


PTET ETP P EP EEL PEEP EEA EER PEL Pal i 
iif 

// window.c 

if 

// OS/2 version 


Peco ee set Ce SSeS ete eee eee ses e Peer eae: 
PPEGETEELP ATTA RLS PELLET ATL EEL PPLE 
// 


// includes and defines here 
// 


#Hinclude <stdlib.h> 
fHinclude <malloc.h> 
fHinclude <string.h> 
fHinclude <stdio.h> 


f#Hinclude “tproto.h” 


#tdefine wNULL O 
4#define W_SIZE sizeof (WIND) 
extern unsigned int sizelmg(WIND x); 


FILET EP ET ITEC TATE TPP EES PEP PEL PLES 
t? 

// wind_destroy 

ff 

// Destroys a window structure by 

// freeing previously dynamically 

// allocated memory 

// 


void wind_destroy(WIND «#W) 


if(W->img_ptr != wNULL) | 
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free((void *)W->img_ptr) ; 


if(W->wind_ptr != wNULL) { 
free((void *)W->wind_ptr); 


if(W->t_title != wNULL) { 
free((void *«)W->t_title); 


if(W != wNULL) { 
free((void *)W); 


PEPSEPTEPETEAA TEA TEE PEPE eee epi p iii i 
// 

// strt_wind 

// 

// This function is called the first 

// time that a window is displayed 

fd 


void strtWind(WIND xW) 


| 
enar xtptr: 


totr= W->t_title; 
rdImg(W); 
wrBox(W); 
rdWind(W) ; 
WesVTSiple= 1; 


if(W->show_top) { 
wind_write(W, 0, W->top_offset, W->top_length, tptr, W->attr); 


PELE EL EPL TET PLT PPT A aaa ae ta bedi 
fi 

// setWind 

if 

// Preps the window structure 

fi 


WIND *setWind(WIND «W, int ul_row, int ul_col, int Ir_row, int 1Ir_col) 
{ 
W= (WIND *)calloc(W_SIZE,sizeof(char));: 
TFCIW) { 
scrn_clear(): 
cu_display(); 
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12-1 Continued. 


cu_move(0, 0); 
printf(“Memory allocation Error: setWind\n”); 
exit(d); 


W->ul_row= ul_row; 
W->ul_col= ul_col; 
W->Ilr_row= Ir_row; 
W-2lr_col= |r_col;: 
W->img_size= sizelmg(W); 
W->img_ptr= (unsigned int *)calloc(W->img_size, sizeof(int)); 
if(!W->img_ptr) { 
scr ciser(): 
cu_display(); 
cu_move(0, 0); 
printf( “Memory allocation Error: W->img_ptr\n”); 
exit(Q); 


W->wind_ptr = (unsigned int *)calloc(W->img_size,sizeof(int)); 
if(!W->wind_ptr) { 
scrncieart(); 
cu displayt}: 
cu_move(0, 0); 
printf( “Memory allocation Error: setWect\n”); 
exit(0); 


W->visible= aFALSE; 
W->box_type =0; 
W->attr= NORMAL; 
W->t_title= 0; 

W->b title= 0; 
W->show_top= aFALSE; 
W->show_bot= aFALSE; 
return(W):; 


PLAPPPAT ERT TTT PEE ATER PEED APT APE TE 


// 
ff 
| 
// 
if 
// 
// 
ae 
// 
hy 
// 
// 
// 
rs 
// 
// 
fi 


setBord 


Sets the border variable in the 
window structure 


set the border 


fH =TBLW 
= Ss 5 
Ls. Ss 2D 
= TDS. S 
s= 0-0-0 D 


void setBord(WIND «W, int type) 


| 


W->box_type= type; 
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epee secre eeeceseeeeveteeeeeereeeeces: 
if 

// wind_attr 

ff 

// Sets a series of attributes on a row 
// in a window 

ii 


void wind_attr(WIND «W, int row, int col, int length, 


{ 
rowt= W->ul_row; 
colt+= W->ul_col: 
scrn_attr( row, col, length, attr); 


PPEPTILE LITE ALI TAT ET AT LTT 
// 

// wind_remove 

i? 

// Removes a window from the screen 

// by restoring the screen that 

// had previously been under the window 
// area 

ie 


void wind_remove(WIND #W) 
| 
if(W->visible) { 
rdWind(wW); 
wrImg(W); 
W->visible= 0; 


EPL SSEC CEASE SESE TICE OCR SEER ERE S 2; 
id 


// setAttr 

// 

// Sets the attribute in the window 
// structure 

ff 


void setAttr(WIND «W, UCHAR attr) 
{ 


W-PatLr= attr: 


void 
wind_display(w) 
WIND -xW; 

{ 
if(!W->visible) 
rdImg(W); 

wrWind(W); 
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UCHAR attr) 


327 


12-1 Continued. 
W->visible = 1; 
} 


ERSES CERES SESE CLEP EPSRC TOP REE ee: 
fy 


// setTitle 

// 

// Prepares the window structure 
// to receive the title string and 
// title location 

ii 


void setTitle(WIND «W, char x*top) 
W->top_length= strlen(top); 
W->top_offset= ( (W->I]r_col - W->ul_col) - W->top_length )/2; 
W->top_offsett+= 1; 
W->t_title= (char *)malloc(W->top_length + 1); 
if(!W->t_title) { 
scrn_clear(); 
cu_display(); 
cu_move(0, 0); 
printf( “Memory allocation Error: setTitle\n”); 
exit(0); 
memset(W->t_title, ‘\0’*, W->top_length + 1); 
siPepy (W-oT_title, Too); 
W->show_top= aTRUE; 


DEPT EEEPA TAA PATA EG AALS ATP EL aa adap ar add 
// 

// wind_write 

ff 

// Writes a character string to the 

// window 

// 


void wind_write(WIND «W, 
int row, 
int col, 
int length, 
char «Str, 
UCHAR attr) 

| 

TAC COUNT; 


if(!length) { 
length= strlen(str); 


if(col==CENTER) { 

col=( W->]f_col = Wedul_col = Tength-1) / 2: 
rowt= W->ul_row; 
COlt+= W-dul_col: 


scrn_write( row, col, length, str, attr); 
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ee PesCerrr ere e seer ees eee ieae ere! 
// 

// wind init 

// 

// Handles all of the mid-level window 
// initialization functions 


// 
WIND sxwind_init(WIND «*W_PTW, 
He WIT, 
iit ule, 
Int IFT; 
int irc, 


unsigned char attr, 
int border, 
char «title ) 
// Allocate memory and return pointer to structure 
W PTW = setWind(W_PTW,ulr,ulc,Irr,Irc); 
// Set Window Attr - Fore,Back,Intensity,Blink 
setAttr(W_PIW, attr); 
// Set Window Border 
setBord(W_PTW, border) ; 
// SOT THE DOTTOM TiTl< 
setTitle(W_PTW,title); 
// Display window 
strtWind(W_PTW) ; 


// return the pointer 


return W_PIW; 


EPELEEC LOL SESSLER EEL SRT eee e SPR REE e SF 
// 

// wind_kb_edit 

iy 

// Edit an alphanumeric field in a 

// window 

// 


int wind_kb_edit(WIND «W, 
char *response, 
int row, 
int column, 
int dlen, 
int opt, 
UCHAR attr) 
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12-1 Continued. 
int ret_val; 


ret_val= kb_edit(response, 
row + W->ul_row, 
column + W->ul_col, 
dlen, 
opt, 
acGor i 
return(ret_val); 


POSS EC SETS PES EC EPEC SET E PEPE e eee creas: 


// 

// wind_repeat_char 

// 

// Repeats a character on a row in a 

// window 

// 

void wind_repeat_char(WIND «WwW, 
int row, 
lft Cal. 
int len, 
char ch 


UCHAR attr) 


scrn_repeat_char(W->ul_row + row, 
W->ul_toe|] + col, 
len, 
en, 
aeurss 


PITS PITS ELT a ita aaa aay 
// 

ff wind char 

rr 

// Writes a character to a window 

// location 

iy 


void wind _char(WIND #W, int row, int col, char ch, UCHAR attr) 
{ 
scrn_char(W->ul_row + row, 
W->ol ¢€ol + ¢el, 
ee 
attr); 


12-1 Ends. 
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13 


OS/2 printer 
management functions 





In OS/2 you can treat the printer as a device in a similar fashion to that of 
a disk drive. The only operations that are supported by this migration li- 
brary when using the printer as a device are opening, writing to, and clos- 
ing. These foundation operations have been used to create some higher 
level printer management functions. 

This chapter presents the source code to the OS/2 printer manage- 
ment object module that has been placed in the OS2TEXT.LIB library file. 
Table 13-1 repeats all the printer function prototypes. 


Table 13-1 Printer 
function prototypes. 


int print_open(int num); 

int print_close(int num); 

int print_newline(int num); 

int print_cr(int num); 

int print_string(int num, char +); 
int print_char(int, char); 

int print_scrn(int); 

int print_scrnFF (int); 

int print_status(int); 


void print_set_columni(int, int); 


Figure 13-1 presents the OS/2 based source code listing to 
PRINTER.C. This function uses OS/2’s MOUS functions that reflect object 
modules contained in the OS2TEXT.LIB library file. 


13-1 The source code listing to PRINTER.C. 


POLIT PHL IIT ET Aaa ae 
Ue 

ff? orinter.c 

// 

// OS/2 Version 

// 

PROCES ECE PELE eee ee ee eee sees te reese: 


ESSLSP SCPE PES ETO SEC ELE APE ERC ECP RE EE: 
// 

// OS/2 defines 

// 


define INCL _DOSDEVICES 
#define INCL _DOSDEVIOCTL 
ftdefine INCL_VIO 

define INCL_KBD 

#tdefine INCL_MOU 

d#Fdefine INCL_DOSPROCESS 
define INCL_DOSSEMAPHORES 


PELTPELIT TT PPT III IT Tk 
fy 

// include files 

// 


#Hinclude <os2.h> 
#Hinclude <stdio.h> 
#Hinclude <string.h> 
#Hinclude <memory.h> 
#Hinclude <malloc.h> 


#Hinclude “tproto.h” 

Static HFILE printer_handle; 

PELTED EEL IIPI IITA PTL PPT Eee ities 
// 

ff print string 

if 

// Sends a string of bytes to the 

// printer 

// 


int print_string(int num, char «buffer) 


ULONG action, wrote; 


APIRET rc= 0; 
rc= DosWrite(printer_handle, 
(PVOID) buffer, 
(ULONG)strlen(buffer), 
&wrote); 
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return((int)rc); 


PEEL ECEESSSESCSPS ST ESEC Seer eee ee kere ese a) 
Ie 


// print_char 

// 

// Send one byte to the printer 
// 


int print_char(int num, char ch) 
{ 

ULONG action, wrote; 

APIRET rc= 0; 

char c_val; 


c_val= ch; 

rc= DosWrite(printer_handle, 
&c_val, 
(ULONG)OxO1, 
&wrote); 


return((int)rc); 
} 


PEPEPLERL PALA TT LL TP PA PLE TP EEE L Pad 
// 

// print_newline 

// 

// Send a new line byte sequence 
// to the printer 

// 


int print_newline(int num) 
return((int)print_char(num, ‘\n’)); 


PORSCSL OSS ESSTT PCE PEER LESTE SELES SE TT: 
// 


fi printer 

fy 

// Send a carriage return byte to the 
// printer 

// 


int print_cr(int num) 
| 
return((int)print_char(num, aCR)); 


PELELTUETLTT ETAT TTT ETT EEL a a ae 
// 

// print_open 

if 

// Open the printer as a device that 

// may be written to 

// 


int print_open(int num) 
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| 

ULONG action, wrote; 

APIRET rc= 0, rcl= 0; 

char s«pname[4] = { “LPT1”, 
"LPie 3 
*LPT3”, 
“LPIA” }4 

char name; 

char SP_BS(7Zl= { Oxll, 8 +: 


action= 2; 
name= pnameLnum]; 


rc= DosOpen(name, 
&printer_handle, 
&action, 
0, 
Ox20, 
0x01 | 0x10, 
0x01 | 0x10, 
OL}s 


return((int)rc); 


PEPEE ETT IT PETA IAAI TATA TP PP EAT PA Pa ea a 
// 
// print _close 


// Close the printer device. This 
// call also flushes the print 
// buffer 


int print_close(int num) 
return(DosClose(printer_handle)); 


PE ETE TTR EET ET TPE EA EET TE Ea ag iT 
// 

// print _set_column 

// Sets the printer head to a 

// specified column. This function 


// will prove useful in creating 
// formatted printer output. 


void print_set_column(int num, int column) 
at GE; 


print_char(num, aCR); 
for(ctr= 0: ctr < celumn: ttre) | 


print_char(num, ‘° ‘); 


13-1 Ends. 
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Part Three 


DOS character 
mode library 


Nine source code modules make up the DOS Library. Keyboard and mouse 
access are handled via the PC’s BIOS. The screen is accessed via direct 
memory. All but one of the modules is written in C. The lone assembly 
module (FIG. 14-1) is KB _STAT.ASM. 

Note that the C source files for the DOS library have the same names 
and the OS/2 library. For that reason, always make sure that you keep 
your OS/2 and DOS C source modules in separate directories. 


14 


DOS keyboard 
management functions 





This chapter presents the source code to the DOS keyboard management 
object module that has been placed in the DOSTEXT.LIB library file. Table 
14-1 repeats the keyboard function prototypes. 


Table 14-1 Keyboard 
function prototypes. 


int kb_edit(char «response, 
int row, 
int column, 
int dlen, 
int opt, 
UCHAR attr); 
int kb_read(void); 
int kb_status(void); 
char kb_char(void); 
UCHAR kb_scan(void);: 


Figure 14-1 presents the assembly listing for KB_STAT.ASM. This 
simple assembly file may be assembled using either MASM or TASM. I 
chose to code this file in assembly because program flow decisions needed 
to be made according to flag status. Writing the code is assembly proved 
trivial where writing it in C would have proven a tad more cumbersome. 


Writing this file in assembly will also ease the task of bringing the 
migration library over to another DOS C compiler. 


14-1 The source code listing to KB__STAT.ASM. 
VERS CSC CCC ROG eea eer er reenreesearaies, 

: Name gt_stat 

. Synopsis ret = kb_status() 


int 0 -> on no key waiting 
else key scan & char code 


: Description O on key waiting and scan & char on key waiting 
LT ILTL ALATA LLL ALLL ALAA LAAT 

DOSSEG 

.MODEL LARGE,C 

.CODE 

public kb_status 


KD_ Status proc 


mov AH, 1 - kD Stet. TURCTION 
+t 16H ; keybd int 
InZ yeskey ; jmp on no key waiting 
mov AX ,O > no key wait return OQ 
jmp keyexit 

yeskey: ; otherwise return scan & char 
mov AH, 0 
int 16H 

keyexit: 
ret 

kb_status endp 
end 

14-1. Ends. 


Figure 14-2 presents the DOS based source code listing to 
KEYBOARD.C. This source file uses DOS’s BIOS functions as building 
blocks for the migration library’s higher level keyboard routines. 


14-2 The source code listing to KEYBOARD.C. 
FIPT EPL TEATS TAPP ET TIE ES aa 
// 

// keyboard.c 

// 

// DOS Version 

ii 

PATATAI PITTI ETE TAT a ea biel iif 
PLEC PPE LEST TIPS PEP PPP ee i Pei i hii al 
if 


// include files here 
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if 


#Hinclude <dos.h> 

#Hinclude <stdlib.h> 
fHinclude <string.h> 
#Hinclude <ctype.h> 


#include “tproto.h” 
void bleep(void); 


PETEPS EIT TEI PETITE EET Ia 
if 

// kb_read 

re 

// Stop program execution and wait 

// for a key press. The scan and 

// character codes are returned 

rf 


int kb_read() 

lee Rebs iP, Of 
// get key press via BIOS 
ir.h.ah= 0x00; 
// invoke BIOS 
int86(0x16, &ir, &or); 


return(or.x.ax): 


EEE E IEE CLEL ETP ES TERT IEP ET IE GT EEG ET 
// 

// kb_char 

id 

// Stop program execution and wait 

// for a key press. The char code 

// is returned 

// 


char kb_char() 

ie heGs TP, Of 
// get key press via BIOS 
ir.h.ah= 0x00; 
// invoke BIOS 
int86(0x16, &ir, &or); 


return(or.h.al): 
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PEP ELEPT IL ELECT ELIT EG PEELE LT PE 
// 

// kb_scan 

is 

// Stop program execution and wait 

// for a key press. The scan code 

// is returned 

fi 


UCHAR kb_scan() 
{ 


inion REGS if, Of; 
// get key press via BIOS 
LF. ah= OF00; 
// invoke BIOS 
int86(O0x16, &ir, &or); 


return(or.h.ah); 
} 


PEPE ERIPIPL IS RIST PEDIATR AT ELS 
if 

// kb_edit 

// 

// Alphanumeric field entry routine 

// 


int kb_edit(char «response, 


int row, 
int column, 
int dlen, 
int opt, 
UCHAR attr) 

int key; 

int start, stop; 

char «rptr; 

THE 064: 


int ins=0; 

char buf[80]; 

int cur, start_column; 

int ret_val; 

int tlen; 
// set start column for stopper on left arrow 
start_column= column; 
// save cursor shape and location 


Cur= cu_get_shape(); 
cu_save_loc(); 


// turf the cursor on 


340 DOS keyboard management functions 


cu_display(); 
// place ‘\0’ at end point of response buffer 
*(response + dlen)= 0; 
// make response string upper or lower 
Switch(opt) 
case LOWER: 
Strlwr(response) ; 
break; 
case UPPER: 
Strupr(response) ; 
break; 
case NAME: 
response= strlwr(response) ; 
‘eresponse= toupper(«*response) ; 


break; 


// copy contents of response buffer to buf{] 
for(i= 0; 1 < dlen; i++) | 
buflil= responseli]; 


// set start and stop variables 


Start= column; 
Stop= start + dlen; 


// alter screen attributes for edit field 
scrn_attr(row, column, dlen, attr); 
// if «response != 0 then write string to screen 
if(*xresponse) { 

uence column, 0, response, attr); 
// adjust cursor location to response string end 
Cu_move(row, column+= strlen(response) ); 
// set response pointer to end of response buffer 
rptr= response + strlen(response); 
// wait for key press 
key= kb_read(); 
// process key press first time through 
ren 


case ESCAPE: 
case ENTER: 
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Cdse 
Case 
Case 
Case 
Case 
Case 
Case 
Case 
ire Be = 
Case 
Case 
Case 
Case 
Case 
Case 


Case 
Case 


Case 


Cdse€ 
Case 


Fie 

Pet 

FS: 

rae 

er 

ace 

Be 

FG: 

ro: 

PLO: 

UP_ARROW: 

DOWN_ARROW: 

UP_ARROW_K: 

DOWN_ARROW_K: 

TAB: 

Cu_set_shape(cur); // restore cursor shape 
eu rest_loec): // restore cursor location 
return(key); // return key press value 

HOME: 

PGUP: 
memset(response, 0, dlen + 1); // clear response buffer 
rptr= response; // reset pointer 
Scrn_write(row, start, dlen, response, attr); // clr scrn 
column= start; // reset column to start 
Cu_move(row, column); f/f adjust curser location 
break; 

CNILULEPTA: 
while(#--rptri=’ ‘); // mv ptr to ‘ * char 
rOtrers ff and incr ptr by | 

// adjust cursor if “ * 18 atter start 


iT (Start_column<start+(int)(rptr-response)) % 
cu_movelrow, column= start + (int)(rptr - response)): 
else { 
// set column & adjust cursor 


column= start_column; 
Cu_move(row, start_column); 
} 


// write response buffer to screen 


scrn_write(row, start, dlen, response, attr); 
break; 


LEFT_ARROW: 
LEFT _ARROW_K: 
Jf 15 cursor right of start? 


if(start_column < column) { 
// yes -> adjust cursor left 


Cu_move(row, --column); 


f/f adjust ptr 
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Petrr=: 
} 
case END: 
case INSERT: 
case DELETE: 
case RIGHT_ARROW: 
case RIGHT_ARROW_K: 
case PGDN: 
// write response buffer to screen 


scrn_write(row, start, dlen, response, attr); 
break; 


default: 
// NULL out scan code 
key&= OxO00ff; 
// set letter case 
Switch(opt) 
{ 
case LOWER: 
key= tolower(key); 
break; 
case UPPER: 
key= toupper(key); 
break; 
// if printable character 


if( (key >= 0x20) && (key <= Ox7e)) { 
// NULL buffer 


memset(response, 0, dlen+ 1); 

// set pointer to response start 

rptr= response: 

// place key in response 

erptrtt= (char) key; 

// write buffer to screen 

scrn_write(row, start, dlen, response, attr); 
// adjust column pointer 

colunn= start + I; 

// adjust cursor position 


Cu_move(row, column); 
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// is the key a backspace? 


if(key == aBS) { 
// if column is greater than start 


if(column > start) { 


} 
break; 


// backspace in response buffer 
Ppp: 

// place NULL at new location 
erPptr= 0: 

// write response buffer 
scrn_write(row, start, dlen, response, attr); 
// adjust cursor location 


Cu_move(row, --column); 
} 


// process key press from now on 


do 
{ 


// adjust case and write 


ifCopt == NAME) 


xresponse= toupper(#response) ; 
Scrn_write(row, start, dlen, response, attr); 


// stop and wait for key press 


key= kb_read(); 


// process key press 


Switch(key) 
case Fl: 
case F2: 
case F3: 
case F4: 
case F5: 
case Fé: 
case Fi: 
case F8: 
case F9: 
case Fl0: 


// return from vdedit 
// and report key press 


case UP_ARROW: 
case DOWN_ARROW: 
case UP_ARROW_K: 
case DOWN _ARROW_K: 
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case TAB: 

case ENTER: 
cu_set_shape(cur); 
eu _rest._| ect): 
return key; 


case ESCAPE: 
cu_set_shape(cur) ; 
cu_rest_loc(); 
for(i= 0:1 < dlen; i++) { // restore original 
responseli j= buflid; // buffer contents 
return key; 


case CNIL_G: 
case DELETE: // delete char and adjust buffer 
frorti= 0: 1 < stop -~ column + Li 44) | 
e(fotr or j= etrotre + 1 + 4); 
e(rptr = L + 1)=— Os 
scrn_write(row, start, dlen, response, attr); 


break; 
case CNIL_T: // erase from cursor to 
while(arptr && erptr != ° °) // EOL 


fortis Os 7 < step - column + Ls 14) 
e(rotr + 7)= e(rptr + 1 +72; 
while(arptr && #rptr == ‘ ’) 
forti= Us. 7 *%& Stop - column + Ls a4) 
LP OTe ot T= el Potr a f ae 1b 
scrn_write(row, start, dlen, response, attr); 
break; 


case CNITL_END: // erase from cursor to entry end 
memset(rptr, 0, stop - column); 
scrn_write(row, start, dlen, response, attr); 
break; 


case LEFT ARROW: // move cursor left 
case LEFT _ARROW_K: 
if(start_ column < column) { 


Cu_move(row, --column); 

PoGeo=4 
break; 

case CNTL_LEFTA: // move by word left 
if(rptr == response) { 

break; 
woilet#e=rpotr == * ~ @& Cinti(rotr - response) > 0); 
while(*x--rptr != * *° && (int)(rptr - response) > 0); 
if(lintiCrptr = response) > 0) { 

Pot Paes 


Cu_move(row, column= start + (int)(rptr - response)); 
break; 


case CNIL_RIGHTA: // move by word right 


if(erptr) { 
while (#++rptr != ‘ * && #rptr); 
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ifterptr) { 

while (#t+rptr == ‘ * && «rptr); 
cu_move(row, column= start + (int)(rptr - response)); 
break; 


case RIGHT_ARROW: // move cursor right 
case RIGHT_ARROW_K: 


if (ePotr) | 
Cu_move(row, ++column); 
rptrt++; 
break; 
case CNTL_BS: // erase entry and start over 


memset(response, 0, dlen + 1); 

rptr= response; 

Sscrn_write(row, start, dlen, response, attr); 
column= start; 

Cu_move(row,column) ; 

break; 


case HOME: // go to beginning of entry 
Cu_move(row ,column= start); 
rptr= response; 
break; 


case END: // go to end of entry 
Cu_move(row, column= start + strlen(response) ); 
rptr= response + strlen(response) ; 
break; 


case CNTL_H: 
case BS: // move cursor back and delete 
if(column>start) { 
PpLrn-; 
for (i= Us 1 -< Stop - column + 14 itr} 4 
ae POLP + T= (PP? - Le ds 
scrn_write(row, start, dlen, response, attr); 


Cu_move(row, --column); 
} 
else { 
bleep(); 
} 
break; 
case INSERT: // toggle insert and overlay mode 
if(ins) // cursor size adjusted 
{ 
ins=0; 


cu_rest_size(): 
} 

else { 
ins= 1; 
Cu_Ssave_size(); 
cu_set_size(0, 7); 
} 

break; 
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default: 
// hask 8 Bits 
key&= OxO00TT; 
// process option 
Switch (opt) 
ee NAME: 
case LOWER: 


// force lower case 


key= tolower(key); 
break; 


case UPPER: 
// force upper case 


key= toupper(key); 
break; 


key&= OxO00fT; 
// is key printable character? 


if((key >= 0x20) && (key <= Ox7d)) { 
// is insert key toggled on 


if{ins) | 
// determine length of response 


tlen= strlen(response); 
// 1S response less than max response? 
if(tlen < dlen) { 

// relocate string making 


// space for new key 


for (i= dhen: 1 > CPROLP- Response): 1--] 
responseliJ= responseli - 1]; 


// write response buffer 
Scrn_write(row, start, dlen, response, attr); 


// is end of edit field not reached? 


if(column < stop) { 
// write char to screen 


scrn_char(row, column, key, attr); 
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// place key in buffer 


xrptr+t= (char)key; 
ff adjust column 2 rignt 
column++; 
// move the cursor on the screen 
Cu_move(row, column); 
ee 
// bleep at field end 
bleep(); 


} while(1); 


14-2 Ends. 
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DOS cursor 
management functions 





This chapter presents the source code to the DOS cursor management 
object module that has been placed in the DOSTEXT.LIB library file. Table 
15-1 repeats the cursor function prototypes. 


Table 15-1 Cursor 
function prototypes. 


void cu_get_loc(int x, int x); 
int cu_get_shape(void); 
void cu_move(int, int); 

void cu_relative_move(int, int); 
void cu_remove(void); 

void cu_display(void); 

void cu_save_size(void); 
void cu_rest_size(void); 
void cu_set_size(int, int); 
void cu_save_loc(void); 
void cu_set_shape(int); 

void cu_rest_loc(void); 


Figure 15-1 presents the DOS based source code listing to CURSOR.C. 
This source file uses BIOS functions as building blocks for the migration 
library’s higher level cursor management routines. 


15-1 The source code listing to CURSOR.C. 


PRPTTLEL PILI EL PT PETA P aT bP ae ee PE ii iii 
// 

7? CUYSoOr et 

// 

// DOS version 

if 


4#Finclude <dos.h> 


fFinclude “tproto.h” 


Static UCHAR e 10¢* 
Static UCHAR roc; 
Static UCHAR ¢ start: 
Static UCHAR c_end; 


PLET FEET PEL PAPE IPAS ED TELE aE EEA Da aa oa 
// 

// Cu_move 

// 

// Moves the text cursor 

// 


void cu_move( int row, int col) 
{ 
union REGS if, or: 


// move cursor via BIOS 


ir.h.ah= 0x02; 
ir.f.bh= 0x00: 
ir.h.dh= (UCHAR) row; 
1f.f.di= (UCHAR) E51: 
int86(0x10, &ir, &or); 


PUPTPPL ELTA ATA TATA TAT APA EAD LPT ai ad fl 
// 

// cu_save_loc 

fi 

// Saves the current cursor location 

ii 


void cu_save_loc() 
{ 
union REGS ir, or: 


// save cursor ltocation via BIOS 


ir.h.ah= 0x03; 
ir.f.bh= 0x00: 
intsélOxi0, Bir, sor); 
c_loc= or.h.dl; 

P_loc= or... dhs 
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FEET LES IOI ETA IIa ait ih 
ae 

ff) CO Pest. 1G: : 

Py 

// Restores the cursor location 

// which has been previously saved 

iy 


void cu_rest_loc() 
| 
// restore cursor location 


cu_move(r_loc, ¢_loc); 


PEPE ET EP ETE PEP EP PEEP TAIT PP 2p bP bee Pi dl 
ii 

// cu_get_loc 

// 

// Gets the current location of the 

// text cursor 

jf 


void cu_get_loc(int *row, int xcol) 
| 
Union REGS if, or: 


// save cursor location via BIOS 


ir.h.ah= 0x03; 
ir.h.bh= 0x00; 
inteo(Oxld, wir, &or): 
*COl= (int)or.h.dl; 
*rOW= (int)or.h.dh; 


PUPP ERL EET EET TEETER ATTA PAE Pa Pa bay 
// 

// Cu_remove 

ie 

// Removes the text cursor from the 

// screen 

if 


void cu_remove() 
Unton REGS 1f, Or: 


// remove the cursor via the BIOS 


ir.h.ah= 0x03: 
ir.h.bn= OQ; 


INMEeoLOxl, Bir, Aer: 


If MeCl= Gr. Asi} 
traf. ch= or.n.em | Oxze; 
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ir.h.ah= 0x01; 
int86(0x10, &ir, &or); 


PEELE LITS ELE PL ELE ELL L LA PAL ELISA ETT EL 
// 

// cu_display 

fz 

// Displays the text cursor on the 

// screen 

id 


void cu_display() 
{ 
union REGS if, or: 


// display the cursor via the BIOS 


ir.h.ah= 0x03; 
ir.h.bh= 0; 


int86(0x10, &ir, &or); 


1fsh.eh= Or.n.en & Uxdt: 
17.f.€l= O7r.n.ci: 
ir.h.ah= 0x01; 
int86(0x10, &ir, &or); 


PEELPPEAP EL EL TELE ETAL LT ERT PAT PELE TE EEL! 
// 


// cu_set_size 

// 

// Sets the size of the text cursor 
if 


void cu_set_size( int start, int end ) 
{ 
union REGS ir, or: 


// set cursor size via the BIOS 


ir.h.ah= Ox0l; 
ir.n.bh= 0; 

ir.h.ch= (UCHAR)start; 
ir.h.cl= (UCHAR)end; 


jnt86(0x10, &ir, &or); 


PETEGE ET EL ELL PTT GIT TP Pi ei 
UF 

// cu_Ssave_size 

eG 
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// Saves the current text cursor size 
// 


void cu_save_size() 
union REGS iPr, or: 


// save cursor size to static variables 


ir.h.ah= 0x03; 
ir.h.bh= 0x00; 


1HEBSCOKIO, &ir, or): 


C Start] oPf.ih. ch: 
cC end= or.kh.el: 


PETTPELIP PRIA AT ELSA TAPIA ETAT EL a Pea al 
// 

// cu_rest_size 

fy 

// Restores the previously saved text 
// cursor size 

// 


void cu_rest_size() 
cu_set_size(c_start, c_end): 
} 


PEEL EEE LEP LEL EEE TEPER EL AT EL PET PP EY 
// 


// Ccu_get_shape 

i? 

// Gets the cursor shape as an int 
// 


int cu_get_shape() 
| 
union REGS if, or: 


// cet cursor shape via the BIOS 


ir.h.ah= 0x03; 
ir.h.bh= 0x00; 


int86(0x10, &ir, &or): 


return(cor.x%.cx) = 


PEEP L EPEAT PEPE DPT ALL EPP T TTT TT ATE edt 


// Cu_set_shape 

// 

// Sets the cursor shape. The shape 
// is received as an int 

// 
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void cu_set_shape(int shape) 
union REGS If, or: 


// reset the cursor shape via the BIOS 
ir. h.ah= OxOl; 

ir.x.cx= shape; 

int86(0x10, &ir, &or); 


PLEELEPE APE T ALTE ATT ELT PPA PE ieee iii 
ii 

// bleep 

// 

// void function 

ff 


void bleep() 
| 


15-1 Ends. 
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management functions 





This chapter presents the source code to the DOS screen management 
object, the RECT.OBJ object module and the MAKE.OBJ object module 
that have been placed in the DOSTEXT.LIB library file. Table 16-1 repeats 
the screen function prototypes. 


void 


void 
int 

void 
void 
void 
void 
void 
void 
void 


void 


Table 16-1 Screen function prototypes. 


scrn_write(int row, int col, int len, char «str, 
UCHAR attr); 

scrn_init(void); 

scrn_read_char(unsigned short, unsigned short); 

scrn_save(void); 

scrn_restore(void); 

scrn_clear(void); 

scrn_attr(int, int, int, unsigned char); 

scrn_change_attr(unsigned char); 

scrn_char(int row, int col, char ch, UCHAR attr); 

scrn_repeat_char(int row, int col, int len, char ch, 

UCHAR attr); 
scrn_chri(int, int, int); 


There are three source modules that all contribute to the library’s 
screen management functionality. These three source files are MAKE.C 


(FIG. 16-1), RECT.C (FIG. 16-2), and SCREEN.C (FIG. 16-3). 

Figure 16-1 presents the source code listing to MAKE.C. Functions 
present in this source module facilitate the handling of screen attributes 
and tokens. 


16-1 The source code listing to MAKE.C. 
PRUCEEPEL IT EAE EL ED PAPI E LETT Tas 
// 


// make.c 

// 

// DOS version 
// 


ff 
// include file 
fi 


#include “tproto.h” 
PELER EER EPIL ERLE TP EP TEP P EP PPLE a 
ii 


// mk_attr 

if 

// Makes an attribute 
// 


UCHAR mk_attr(UCHAR fore, 
UCHAR back, 
UCHAR inten, 
UCHAR blink) 
UCHAR attr; 
attr= back << 4; 
return((UCHAR) attr | fore | inten | blink ); 


Pee Pe cere erect eegerereeeeeeeeeeane! 
// 

// mk_attr_intense 

Le 

// Makes an existing attribute 

// intense 

// 


UCHAR mk_attr_intense(UCHAR attr) 
| 
return(attr | ON_INTENSITY); 


PP EL PELLET PEEL TPL ELL EET EEE TATE 
// 


// mk_attr_intense_blink 

fi 

// Makes an existing attribute intense 
// and blink 

// 
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UCHAR mk_attr_intense_blink(UCHAR attr) 
{ 
return(attr | ON_INTENSITY | ON_BLINK); 


PESIP IP IIIA A PITT TE EAT TEA EET EIT PP TT ad 
if 

// mk_attr_blink 

i] 

// Makes an existing attribute blink 

ji 


UCHAR mk_attr_blink(UCHAR attr) 
| 

return(attr | ON_BLINK); 
} 


PEEL IIIS PETE PCI ai tai 
// 

// mk_attr_inverse 

ei 

// Makes an existing attribute 

// inverse 

ye 


UCHAR mk_attr_inverse(UCHAR attr) 
UCHAR ul ,u2: 

ul= attr & Oxff; 

u2= ul; 

u2<<= 4s 

returm {uz |] (ul >> 4)) & Oxi: 


PEL EELI TAIPEI TIE IEP EEE PET PPP PP Efe i 
ie 

// mk_token 

fi 

// Makes a token 

ff 


int mk_token(UCHAR ch, UCHAR attr) 
{ 
Tit ret_val: 

ret_val= 0; 

ret_val= ch; 

return ((ret_val << 8) | attr); 


PEEP EELEPEPA LTP TET EGE PP EP TEP aa ea Tada aad 
// 

// mk_char_attr 

fy 

// Takes a screen token and returns an 
// 8-bit char and 8-bit unsigned char 
// attribute via pointers passed as 

// parameters 
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16-1 Continued. 
// 


void mk_char_attr(int token, char «ch, UCHAR xattr) 
xattr= (UCHAR)token & OxOOff:; 
token>>= 8; 
*ch= (UCHAR) token; 


16-1 Ends. 


Figure 16-2 presents the source code listing to RECT.C. This source 
module presents functions that facilitate the management of rectangular 
portions of the screen. 


16-2 The source code listing to RECT.C. 


SPEC ECFRC LTE CTT CeCe eee eae eee: 
// 

// rect.c 

// 

// DOS Version 

// 


fHinclude <stdlib.h> 
fHinclude <stdio.h> 
#Hinclude <malloc.h> 
#Hinclude <string.h> 


include “tproto.h” 


Static 

char buTTazlLeul = { 325 323 225 32% 35 of, 32, 22% Ses 
See Bes O2s O24 32, O22, 32, O22 225 
Boy Gly Ban BC, 32, Bt, 32, BL, 32, 


Bey See Sey OGy- Ses Ses. Son See. Oe, 
Soh ate dhe Ses See Dey Bop Sle Oe; 
Ge, Sey dey Sey Gey SA» Boy eoe OE: 
Be, Oey O25 964 8 y Sly Ohy Bly BE 1% 


PELELETLI TEES PETS EPP PELE La i 
// 

// saveRect 

if 

// Saves a rectangular image to 

// memory 

// 


void saveRect( RECT #R) 
{ 

unsigned int xiptr; 
Lite row; 

int column; 
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iptr= (unsigned int *)R->image; 
for(row= R->ul_row; row <= R->1]r_row; rowt+) { 
for(column= R->ul_col; column <= R->1r_col: column) | 
xiptrt++= scrn_read_char(row, column); 


PERIL PTET PLT EL ETA ET EET PEE 
fi 

// restRect 

// 

// Restores a previously saved 

// rectangular image 

// 


void restRect(RECT *R) 
| 
unsigned int xiptr; 


int row, token; 
int column; 
UCHAR attr: 

char ens 


iptr= Cunsigned int *) R->image; 


for(row= R->ul_row; row <= R->]r_row; rowt+t+) { 
for(column= R->ul_col; column <= R->I1r_col; column++) { 
token= *iptr++; 
mk_char_attr(token, &ch, &attr); 
scrn_cnar(row, column, ch, attr): 


PEEL I UPIEIIAL EIA AEE EIT TIE a i Tt 
// 

// setRect 

// 

/?/ Initializes a RECT structure 

if 


REGT #S@GRECLURECT ek, It Ur, INT Uc, Inet Tr, THe Te) 
{ 
Mt Size: 
R= (RECT *)malloc(sizeof(RECT)); 
ifC IR) { 
scrn_clear(); 
cu_display(); 
Cu_move(0, 0); 
printf(“Memory allocation Error: setRect\n”); 
exit(o);: 
R->ul_row= ur; 
R->ul_col= uc; 
Rov le Pow= 17% 
Ree | Poeol= 13 
Size= sizeRect(R); 
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16-2 Continued. 


R->image= (unsigned int *)calloc(size, sizeof (int)); 
return(R); 


ETFETER ETT Pa aa ff 
if 

// sizeRect 

// 

// Calculates the size of a rectangular 
// screen image 

// 


unsigned int sizeRect(RECT xR) 
int height, width, size; 


height= R->Ir_row - R->ul_row + 1; 
width= R->lr_cal - R-fuloéel + 1: 
Size= height *« width; 
return(size); 


SEECSS RCT See Pee Per ees rer eer ere ee ese: 
// 

// dsyRect 

iy 

// Destroys a rectangular structure 

// by freeing previously allocated 

// memory 

// 


void dsyRect(RECT xR) 

| 
free((void *)R->image); 
free((void *)R); 


PELE T PAPEL ITEP EPP E PELTED Tea Pee eed add idl 
fi 

// subRect 

ig 

// Subtracts a one RECT structure 

// from another 

ff 


void subRect( RECT «xdestR, RECT x«srceR ) 
{ 

srceR->ul_row; 
srceR->ul_col: 
srceR->|r_row;: 
SPoen=>1F-col ¢ 


destR->ul_row- 
destR->ul_col- 
destR->1|r_row- 
destR->|r_col- 


Sere eee eee Ter cee e ee ealelrecrgus se) 
// 

// addRect 

rs 
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// Adds one RECT structure to another 
is 


void addRect(RECT «destR, RECT xsrceR) 
| 
destR->ul_rowt= srceR->ul_row; 
destR->ul_colt+= srceR->ul_col; 
destR->]r_rowt= srceR->I|r_row; 
destR->I|Ir_colt= srceR->Ir_col;: 


PEEPEPL ETRE ELE PL APPEL PEP ELE EES 
fy 

// dupRect 

if 

// Duplicates one RECT structure 

// with another 


void dupRect( RECT «xdestR, RECT *srceR) 
{ 
destR->ul_row= srceR->ul_row; 
destR->ul_col= srceR->ul_col; 
destR->|lr_row= srceR->I|r_row; 
destR->1r_col= srcekR->ir_col: 


PPT LECT TIT eae aa 
fy 

// clrRect 

// 

// Clears a RECT structure using the 

// NORMAL (7) Screen attribute 

// 


void clrRect( RECT xR) 
int row; 

int column; 

int row_stop, col_stop; 
int token; 


row_stop= R->Ir_row; 
col_stop= R->Ir_col; 


for(row= R->ul_row; row < row_stop; row+t+) { 
for(column= R->ul_col; column < col_stop; column++) { 
scrn_chart row, column, * °, # 2:3 


PPLE ETE TERE CELE ERA PEEP EPP ad if ie iid 
fi 

// of fRect 

// Shifts the row and column locations 


// within a RECT structure by the 
// offset values. 
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16-2 Continued. 
// 


void offRect( RECT *xdestR, int row_off, int col_off ) 
{ 

destR->ul_rowt+= row_off; 

destR->ul_col+= col_off; 

destR->|]r_rowt+= row_off:; 

destR->|lr_colt+= col_off; 
} 


FELEL ER EL CRIA TAT ATL TAD ET EE TEP TL a 
// 

// boxRect 

es 

// Places a border around a rectangle 
// 


void boxRect(RECT *R, int box_type, unsigned char attr) 
| 

int row,column; 

int token; 

int top.pot,. lertipignt, ul, wr, 11, ih: ¢¥ DOK cheices 


Switch(box_type) 

| 

case l: 
top_bot= 196; 
left_right= 186; 
ul= 214; 
ur= 183; 
ll= 211; 
lr= 189; 
break; 

case 2: 
cop bot 208; 
left_right= 179; 
ul= 213; 
ur= 184; 
Tl= 212: 
lr= 190; 
break; 

case 3: 
top_bot= 205; 
left_right= 186; 
ul= 201; 
ur= 187; 
11= 200; 
lr= 188; 
break; 

default: 
top_boet= 196; 
left_right= 179; 
Uul= 218; 
ur= 191; 
ll= 192; 
Jr= 217; 
break; 


for(row= R->ul_row:;: row < R->|]r_row; rowt+t+) { 
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SscPrn_wri tet row, K-10), R-2lrtol - B-Pul_col, buff3a?, attr): 
} 


// draw top and bottom 
for(cotum= R-pul_col;: column < R-Alr_col;: ++column) { 
scrn_thar(R-ul_ row, column, top_bot, attr); 


scrn_cnar(k-?ir_row, column, top_bot, attr); 


// draw left and right borders 
for(row= R->ul_row; row < R->1]r_row; ++row) | 
scrnm_char(row, Reeul_col, leTtright, attr}: 


scrn_char(row, R--lr_col, leftwright, attr): 


// plop the four corners 

scern_char(R->ul_row, R->ulucol, ul, attr): 
Sern chart R-Sul_row, R->lhicol, ur, attr): 
scrn_cnar(R->|lr_row, R-oul_col, if, attr); 


scrn_charlk->lr_row, R-sir_col, If, attr): 


16-2 Ends. 


Figure 16-3 presents the DOS-based source code listing to 
SCREEN.C. This source file uses direct video memory access techniques 
as a route to implementing the migration library’s higher-level screen 
management routines. Directly accessing screen memory produces very 


professional results. 


16-3 The source code listing to SCREEN.C. 
Pere SUPP Pee ee eee reteee sere saree i irs: 


// 
// 
// 
// 
fi 


if 
// 
// 


SsCteetet 


DOS version 


include files here 


#include <stdio.h> 
fHinclude <string.h> 
fHinclude <ctype.h> 
#Hinclude <dos.h> 


fHinclude “tproto.h” 


// 


// static data 


ie 
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16-3 Continued. 


static 

char purracleo] = | 32, 32, 382, 32, 
Be 5 Oka Ses BCs 
OM ee ee g Oey 
BZ, SLs O25 Oty 
Boy. Clg ey ee 
32, 32, dey oe 
Se, Oey O04 Ol, 
$2, 32, 62, a2 

| 

// global variables 

// 


UCHAR far £SCrnrer: 
Static UINT scrn_buf[80 « 25]; 


Oca Begcae; 
See Bey aes 
a a ae 
Bie Og Mes 


¢ oly ey. Shee 
i Dee Ole Ses 


PEPEP PETAL EP EE ALE ERT IATL TD Pa 


// 

f/f serninit 

// 

// Initialize the ScrnPtr variable 
// 


vOld scrn_init?) 
| 
union REGS ir, or: 
// determine if monitor is color 
// or mono and set ScrnPtr to 
// appropriate value 
iPsh.an= Ox0Ts 
// via the BIOS 
int86(0x10, &ir, &or); 


// if monitor type is Mono 


if(or.h.al == 7) { 


ScrnPtr= (UCHAR far *)0x0bD0000000L; 


// else is Color 


else { 


ScrnPtr= (UCHAR far *)OxOb8000000L; 


eee ees eee ees eee ee eee eee eee reas, 


ff 

fy sernicner 

a 

// Write a character to the screen 
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// 


VOTd SCrn_cnarcint row, int col, char ch, UCHAR attr) 


TAL offset; 
UCHAR far xp; 


// set p to upper left hand corner of text screen 
p= (UCHAR far *)ScrnPtr; 

// calculate screen offset for string write start 
oTffset= (row * 160) * (col «* 2); 

// add offset to p 

pt= offset: 

// move the character to the screen 

*xDtt= ch; 

// move the attribute to the screen 

aOrT— ATL: 


ELECT SLES CLES SPE PSE e CERES PET ere S| 
fi 

// scrn_repeat_char 

i} 

// Repeats a character on a horizontal 
// line 


void scrn_repeat_char(int row, int col, int len, char ch, UCHAR attr) 


{ 
int counter; 


for(counter= 0; counter < len; counter++) { 
scrmcnartl pow, colt, ch, attri: 
} 


PEETL PEGE EEL EA TP EAA PEARL EPEAT EDAD EL a ab bd 
ff 

ff Strn_acir 

// 

// Change a specified number of screen 
// attributes without altering the 

// displayed characters 

// 


void scrn_attr(int row, int col, int len, UCHAR attr) 
{ 

int offset, counter; 

UCHAR far xp; 


// set p to upper left hand corner of text screen 
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16-3 Continued. 
p= (UCHAR far *)ScrnPtr; 


// calculate screen offset for string write start 

offset= (row # 160) + (col # 2); 

// add offset to p 

p= oTTsets 

// Change the attributes 

for(counter= 0; counter < len; counter++) { 
// bypass the character 
p++; 
// move the attribute to the screen 

ep BCG 
OROGR AIRE CUEGUE CCRC ORCC CEES e eee area e: 


oy 

// scrn_write 

// 

// Write a string to the screen 
fi 


void scrn_write(int row, int col, int len, char «str, UCHAR attr) 
i OTTSeL, counter: 
UCHAR far xp; 

// set p to upper left hand corner of text screen 

p= (UCHAR far *«)ScrnPtr; 

// calculate screen offset for string write start 

orTset= (row » 160) + (Col @ c}; 

// add offset to p 

p+= offset; 


// if length is 0 then calculate the length 
// of the string 


if(ilen) { 
len= strien(str); 


// write the string to the screen 
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Tortcounter= Os counter < lén; counter++) | 
// move the character to the screen 
aPrtS £67 Prrs 
// move the attribute to the screen 
sor SCL s 


MESS ESPLSCCSSS IPSS SPST Pee eee eee ree ee: 
// 

fi scrn_clear 

ai 

// Clear the screen with the NORMAL 

// (7) attribute 

// 


void scrn_clear() 
{ 
int row; 


for(row= 0: row < 25: row ++) { 
sern_write(row, 0, 80, buff32, 7): 
} 


(epee eee eee eee eer ee eee eee eee eee, 
// 

// scrn_change_attr 

if 

// Change the attribute of the screen 
// without altering the displayed 

// characters 

ff 


void scrn_change_attr(unsigned char attr) 


{ 
int row; 


for(row= 0: row < 25: row ++) { 
Sscrn_attr(row, 0, 80, attr); 
} 


PELEE EEE EL PEELE TEES ELIE IAT PEPTIDE 


// 

iy SCrA_ChY 

if 

// Write a 16-bit token to the screen. 
// 


VOigd Scrn_chrcint row, int col, int token) 


| 
UCHAR at; 
enar ch: 
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16-3 Continued. 


ch= (char)token; 
token = token >> 8; 
at= (UCHAR)token; 


scern_chart row, col, ch, at) 


PE SEA ERLE ELTA E ETT SEL E ELIE PSE PEP TT 
// 
// scrn_read_char 
// 
// Read the character and its attribute 
// at a specified screen location 
he 
int scrn_read_char(USHORT row, USHORT col) 
| 
int offset, token; 
UCHAR buffer([2]; 
UCHAR far xp; 
// set p to upper left hand corner of text screen 
p= (UCHAR far «*)ScrnPtr; 
// calculate screen offset for string write start 
offset= (row « 160) + (col x 2); 
// add offset to p 
pt+= offset; 
// move the character to the buffer 
bufferLOJ= «p++; 
// move the attribute to the buffer 
bufferllJ= xp; 
token= mk_token(bufferL0O], buffer{ll]); 


// and return 


return token; 


PEP EL ELE E TIPPEE IEPA TEI L IAT ETT ETT ET aT 


void wrBox(WIND xW) 

| 

int row, column; 

ifft top bet, lerft_right, ul, ur, 17, 1%: 77% Dox choices 


Switch(W->box_type) 
case l: 
top_bot = 196; 
left_right = 186; 
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ul = 214; 
ur = 183; 
11 = 211: 
lr = 189; 
break; 

case 2: 
top_bot = 205; 
left_right = 179; 
ul = 213; 
ur = 184; 
tl = 2l2: 
lr = 190; 
break; 

case 3: 


top_bot = 205; 
left_right = 186; 
ul eu 
ur 187; 
1] 200: 
ae 188; 
break; 

default: 
top_pot = 196; 
left_right = 179; 


ul = 218; 
ur = 191; 
ll = 192; 
lr = 217; 
break; 


} 

for(row=W->ul_row; row<W->I|lr_row; rowtt+) { 
Scrn_writel(row, wW-Pul_col, W=>irplcol - W-Pul_col, butf3z, 

// draw top and bottom 

for(column=W->ul_col; column<W->1]r_col; ++column) { 
scrn_char(W->ul_row, column, top_bot, W->attr); 
scrm_charth-FiP row, column, Popbot, W-ratir): 

// draw left and right borders 

for(row=W->ul_row; row<W->Ir_row; ++row) { 
sern_cher(row, W->dul_co!, leftoright, W->attir): 
scrn_chart(row, Ws>lrico!l, left right, W->attr): 

// plop the four corners 

scrn_cnartwW-sul_row, W->dul col, ul, We>vattr): 

scrnchartwW--ul_row, W->lr_ col, ur, W-dattr): 


scrn_char(wW->1Pr_prow, W->ul_col, 11, W->attr): 


scrn_char(W->|r_row, W->|lrecol, lr, W->attr): 
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W->attr); 
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16-3 Continued. 


unsigned int sizeImg(WIND xW) 

| 

int height, width, size; 
height= W->Ir_row - W->ul_row; 
width= W->1r_col-W->ul_col; 
++height ; 
++width; 
Size= height « width; 
return(size); 


void vdBox(RECT *«R, int box_type, UCHAR attr) 

| 

int row,column; 

int top_bot, lerTtrignt, ul, ur, ll, lf: ¢¥ Box choices 


Switch(box_type) 
case l: 
top_bot = 196; 
left_right = 186; 


ul = 214; 

lr = 163; 

11 = 211 

lr = 189; 

break; 
case 2: 


top_bet = 205; 
left_right = 179; 


ul = 213; 

ur = 184; 

11 = 212; 

lr = 190; 

break; 
case 3: 


top_bot = 205; 
16éTE_Pignt = Les: 
ul UL ® 
ur L8?: 
ie 200; 
i 188; 
break; 

default: 
top_bot = 196; 
left_right = 179; 


| | 


ul = 218; 
ur = 191; 
J] = 192; 
ly = Zit: 
break; 


for(row=R->ul_row; row<R->1]r_row; rowt+t+) { 
scern_write( row, R=>ul_col, R=->ir_col = R-sul_cal,, 


// draw top and bottom 

for(column=R->ul_col; column<R->1Ir_col; ++column) { 
scrn_char(R->ul_row, column, top_bot, attr); 
scrn_char(R->lr_row, column, top.bot, attr): 
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buTTS2, 


acir)® 


} 

// draw left and right borders 

for(row=R->ul_row; row<R->I|lr_row; ++row) { 
scrn_charlrow, R-2ul_col, leftlright, attr): 
scrn_char(row, R->Ir_col, left_right, attr); 
} 

// plop the four corners 

scrn_char(R->ul_row, R->ul_col, ul, attr): 

scrn_cnartR=sul_fow, R=rir.col, ur, ettr): 


scrn_char(R=>ir_row, R->ul_col, |), attr): 


scra_chartk=sir_row, R=>tr_col, lr, etir): 


PPT RER PELE SLES CR EACLE ERE ASE eer ee: 
id 

// scrn_save 

ry 

// Saves the screen to a static buffer 
rf 

void scrn_save() 


int row, col; 
UINT «S; 


// set S to screen buffer 
S= Scrn..but: 
// save screen by row 
Ffor(row= 0; row < 25; rowt+) { 
// save by column 
for(col= 0; col < 80; colt) | 
// save screen token 
*S= scrn_read_char(row, col); 


Sear 


PEEP IPATTS LTT TT a 
// 


// scrn_restore 

{7 

// restores the previously saved 
// screen 
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16-3 Continued. 
ii 


void scrn_restore() 
{ 


UINT *#&SB; 

UCHAR ever: 

int row, col, token; 
char eM: 


// set SB to Screen buffer 
SB= sern_buT; 
// restore by row 
for(row= 0; row < 25; rowt++) { 
// restore by column 
for(col= 0: col < 80; colt) { 
f/f Split. token to char and attr 


mk char_attr(*SBt++, &ch, &attr); 


// write the char and attr to the screen 


scrpn_chartrew, Col, Ci, OLir): 
} 
CEE ER pga AMNERTER Ear nice 


// vrdImg 
iE 


// Transfers a rectangular region of the screen 


// to buffer and blanks the area 
// 


void rdIimg(WIND xW) 
{ 
int row, column; 
UINT #buT_ptr; 
buf_ptr = (unsigned int *)W->img_ptr; 


for(row=W->ul_row; row<=W->]r_row; rowt++) { 


for( column=W->ul_col; column<=W->1r_col; 
*xbuf_ptr= scrn_read_char(row, column); 


DUT_DT r-Frs 
} 


PP EREA TEP ET EP EDTA EAP PPT AP ETP EAI P PEEP EE 
// 
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columnt++) 


| 


// wrimg 

ff 

// transfers a rectangular region of the screen 
// to buffer and blanks the area 

if 


void wrilmg(WIND xW) 


int row, column, token; 
UINT  s«img_ptr; 

UCHAR attr: 

char en: 


img_ptr = (UINT «*)W->img_ptr; 
for(row=W->ul_row; row<=W->]r_row; row+t+) { 
for( column=W->ul_col; column<=W->1r_col; column++) { 
// split token to char and attr 
mk_char_attr(*img_ptr, &ch, &attr); 
TMG piri: 


scrn_char(row, column, ch, attr): 
} 


PEEP EPEAT TAT LIP EEL EP AISI TT a 

ii 

// rdWind 

// 

// transfers a rectangular region of the screen 
// to buffer and blanks the area 

is 

// 


void rdWind(WIND «W) 
oe row, column; 
UINT *buf_ptr; 
buf_ptr = (UINT «*)W->wind_ptr; 
for(row=W->ul_row; row<=W->I]r_row; rowt++) { 
for( column=W->ul_col; column<=W->1]r_col; column++) { 


*buf_ptr= scrn_read_char(row, column); 


DUT DEPHrs 
} 


PLEERIT ALI TTT TEE AAPA APE Ta eee a ddd fill 
if 

// wrWind 

he 
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// transfers a rectangular region of the screen 
// to buffer and blanks the area 

i? 

if 


void wrWind( WIND xW) 
| 


UCHAR attr; 
UINT «#img_ptr; 
char chs 


int row, column, token; 
// set the ipointer to window image 
img_ptr = (UINT *)W->wind_ptr; 
// write window by row 
for(row=W->ul_row; row<=W->]Tr_row; row+t+) { 
// write window by column 
for( column=W->ul_col; column<=W->1]r_col; column++) { 
// split token to char and attr 


WK chara@ttr eitgotr, sen, &attr): 
img_ptr++; 


scrn_char(row,column, ch, attr): 


16-3 Ends. 
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17 


DOS mouse 
management functions 





This chapter presents the source code to the DOS mouse management 
object module that has been placed in the DOSTEXT.LIB library file. Table 
17-1 repeats the mouse function prototypes. 


Table 17-1 High level mouse function prototypes. 


int ms_init(void); 

void ms_on(void); 

void ms_off(void); 

int ms_status(int «x, int x+y); 

void ms_map_display(int row, int col, int key_val); 


Figure 17-1 presents the DOS based source code listing to MOUSE.C. 
This function uses BIOS functions for the implementation of mouse 
management functions in the DOSTEXT.LIB library file. 


17-1 The source code listing to MOUSE.C. 
VESELE TET LAT SALT AT TET Ta ag 
// 


// mouse.c 

fe 

// DOS version 
// 


17-1 Continued. 


#Hinclude <dos.h> 
#include <memory.h> 
fHinclude <stdio.h> 
finclude “tproto.h” 


PRUE ELE T ETAT PALETTE ETT EET EP Ed 
tf 


// ms init 
// 
// Initialize the mouse 


int ms_init() 

{ 

union REGS ir, or; 
int button; 


ir.x.ax= 0x00; 
inte6(0x33, &ir, &or): 
1f{lor.x%.ax} { 

button= Oxffff; 
else { 

DUTtON= or .*%. bx: 

} 


return button; 
} 


PUPP EEL EL EL EPPA LAAT ATE APPT TPP EAT ph dd 
// 

// ms_off 

// 

// Turns the mouse off 

if 


void ms_off() 
{ 
union REGS if, or: 


i’, X.ax= OxO2: 
inteecoxss, Bir, Bor): 
} 


RPC CUSE Ree Peete cere eres enere se) 


// Turns the mouse on 
es 


void ms_on() 


Union REGS if, or: 


1f.%.ax= Ox0l: 
1MtB6(OxK33S, Bir, Bord: 
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PET e RE CECT EC CE PERE TELE EEE TEER ES ERE eR 
ms_status 


fi 
fi 
i 
// 
// Returns the mouse button status and 
// the row and column location of the 
// mouse 

// 

Int ms_status(int *x, int xy) 


{ 
WON RERS. Vr, ors 


ir.xX.ax= 0x03; 
int86(0x33, &ir, &or); 
ex= Or. X. CX 

*Y= Or.xX.dx; 


return or.x.bx; 
} 


Cher eee LF ES eee Peer eee ee ee eer fe se 
ms_map_display 


) 
// 
// 
// 
// This function reports the mouse 

// location on a button press. It 

// will prove invaluable when mapping 

// a user interface 

Le 

void ms_map_display(int row, int col, int key_val) 
| 

UCHAR exit_flag= 0; 

char buffer[20]; 

int key; 

int X= 0, y= 0; 


do { 
key= kb_status(); 


if(!key) { 
key= ms_status(&x, &y); 
if(key == 1) { 
Sscrn_write(row, col, 0, “Left Button Press 
} 
if(key == 2) { 


scrn_write(row, col, 0, “Right Button Press” 


} 
memset(buffer, 0, 20); 
sprintt(puffer,”x= 203d y= 203d”, x, y); 
Scrni_wri tet Pow + 1, col, G, butter, 72: 
} 


if(key == key_val) { 
exit_flag= 1; 
} 


} while(!exit_flag); 


"f. dges 


ae 6 





17-1 Ends. 
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DOS window 
management functions 





This chapter presents the source code to the DOS window management 
object module that has been placed in the DOSTEXT.LIB library file. Table 
18-1 repeats the high level window function prototypes. 


Table 18-1 High level window function prototypes. 


WIND xwind_init(WIND «W_PTR, 
int ulr, 
int ulc, 
int Irr, 
int Irc, 
UCHAR attr, 
int border, 
char «title ); 
int wind_kb_edit(WIND «W, 
char *response, 
int row, 
int column, 
int dlen, 
int opt, 
UCHAR attr); 
void wind_display(WIND +); 
void wind_remove(WIND 3); 
void wind_attr(WIND +, int, int, int, unsigned char); 
void wind_write(WIND x, int, int , int , char *«, UCHAR); 


Table 18-1 Continued. 


void wind_char(WIND «x, int row, int col, char ch, 
UCHAR attr); 
void wind_repeat_char(WIND «, int row, int col, int len, 


char ch, UCHAR attr); 
void wind_destroy(WIND =); 


int wind_read_char(WIND «x, int, int); 
void wind_clear(void); 
void wind_cu_move(WIND «x, int, int); 


Figure 18-1 presents the DOS-based source code listing to WIN- 
DOW.C. This source file uses functions presented in RECT.C, MAKE.C, 
and SCREEN.C as building blocks for the migration library’s higher level 
window management routines. 


18-1. The source code listing to WINDOW.C. 


LEP EG ILI TTL TTA I AP ea i 
ey 

// wWindow.c 

OF 

// DOS version 

‘ei 


fHinclude <stdlib.h> 
#include <malloc.h> 
#Hinclude <string.h> 
#incilude <stdio.h> 


fHinclude “tproto.h” 


#tdefine wNULL 0 
define W_SIZE sizeof (WIND) 
extern unsigned int sizelmg(WIND x); 


ELSTLEITELEE ELS LIT EPIL aa ie 
// 


// wind_destroy 

// 

// Destroys a window structure by 
// freeing previously dynamically 
// allocated memory 

fe 


void wind_destroy(WIND #W) 
{ 


if(W->img_ptr != wNULL) { 
free((void *)W->img_ptr) ; 


if(W->wind_ptr != wNULL) { 


free((void *)W->wind_ptr) ; 
} 
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if(W->t_title != wNULL) { 
free((void *)W->t_title); 


if(W != wNULL) { 
free((void x«)W); 


SESS Ak LeeLee e eee eee eae a: 
ie 

f/f strtwind 

// 

// This function is called the first 

// time that a window is displayed 

ei 


void strtWind(WIND «W) 


char #tptr; 


BpLP= W= >t. 0) L1e3 
rdimg(W); 
wrBox(W) ; 
rdWind(W) ; 
W->visible= 1; 


if(W->show_top) { 
wind_write(W, 0, W->top_offset, W->top_length, tptr, W->attr); 


ROR PECESETECSS PESO CEP CT ESTER Sere eer e S| 
// 

// setWind 

ff 

// Preps the window structure 

if 


WIND xsetWind(WIND «W, int ul_row, int ul_col, int Ir_row, int l|r_—col) 
W= (WIND *)calloc(W_SIZE,sizeof(char)); 
ifC IW) { 
scrn_cleart): 
cu_display(); 
cu_move(Q, QO); 
printf( “Memory allocation Error: setWind\n”); 
exit(0); 


W->ul_row= ul_row; 
We>ul eol= ul_eo): 
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18-1 Continued. 


W->|lr_row= |r_row; 
W->ir_col= Tricol: 
W->img_size= sizelmg(W); 
W->img_ptr= (unsigned int #«)calloc(W->img_size, sizeof(int)); 
if(!W->img_ptr) { 
scrn_clear(); 
cu_display(): 
cu_move(0, 0); 
printf(“Memory allocation Error: W->img_ptr\n”); 
exit(0); 


W->wind_ptr = (unsigned int *)calloc(W->img_size,sizeof(int)); 
if(!W->wind_ptr) { 
scrn_clear(); 
cu_displayt): 
cu_move(Q, QO); 
printf( “Memory allocation Error: setWect\n”); 
exit(0); 


W->visible= aFALSE; 
W->box_type =0; 
W->attr= NORMAL; 
W->t_title= 0; 

W->b title= 0; 
W->show_top= aFALSE; 
W->show_bot= aFALSE; 
return(W) ; 


PEGSAL ETI ESE PIII ESE LET ET EPI ETT 


// 
if 
// 
// 
// 
// 
if 
// 
// 
if 
ff 
// 
// 
// 
// 
// 
ff 


setBord 


Sets the border variable in the 
window structure 


set the border 


f TBLW 
0 = 3555 
1 = 3500 
2 = § DS 5 
> = DBP Dp 


void setBord(WIND #W, int type) 


W->box_type= type; 


PEETEEE TTL E ETA AAT TELAT ATA EE EE TD 


if 
cs 
// 


wind_attr 
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// Sets a series of attributes on a row 
// in a window 
ie 


void wind_attr(WIND «W, int row, int col, int length, 
| 


rowt+= W->ul_row; 
colt+= W->ul_col; 
scrn_attr( row, col, length, attr); 


PELL EIT ERT ATEI ILL LTA STEEP TET TIA TE 
fi 


// wind_remove 

oe 

// Removes a window from the screen 

// by restoring the screen which 

// had previously been under the window 
// area 

Pi 


void wind_remove(WIND «W) 


if(W->visible) { 
rdWind(w) ; 
wrImg(W); 
W->visible= 0; 


PELIILEELE ET EPL AT ET APE EPCOT IL PPP 
// 


// setAttr 

fi 

// Sets the attribute in the window 
// structure 

// 


void setAttr(WIND «#W, UCHAR attr) 
| 


W-PaLtr= attr: 


void 
wind_display(w) 
WIND xW; 

| 

if( !W->visible) 


rdiImg(W); 
wrWind(W); 
W->visible = 1; 
} 


PELELEPL SPLAT EEE TI IE ESL ELE LEE TEES TY 
// 


// setTitle 


UCHAR attr) 
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18-1 Continued. 


he 

// Prepares the window structure 
// to receive the title string and 
// title location 

iy 


void setTitle(WIND *W, char xtop) 
W->top_length= strlen(top); 
W->top_offset= ( (W->]r_col - W->ul_col) - W->top_length )/2; 
W->top_offsett= 1; 
W->t_title= (char *)malloc(W->top_length + 1); 
if(!W->t_title) { 
scrn_clear(): 
cu_display(); 
cu_move(0, 0); 
printf( “Memory allocation Error: setTitle\n”); 
exit(0); 
memset(W->t_title, ‘\0’, W->top_length + 1); 
strepy(W-st_title, top); 
W->show_top= aTRUE; 


PETEE EL EIT ET EGET TET EDI TAA PPTL TTY 
if 

// wind_write 

if 

// Writes a character string to the 

// window 

// 


void wind_write(WIND «W, 
int row, 
int Col, 
int length, 
char «str, 
UCHAR attr) 

int count; 


if(!length) { 
length= strlen(str); 


if(col==CENTER) { 
col=( W->iricol - W->ul_col - Ternetnh-1) ¢ 2: 
} 

rowt= W->ul_row; 

colt+= W->ul_col; 


scrn_write( row, col, length, str, attr); 


PRG RORUS SSP SEES CSCC R CCE e seer e| 
// 
// wind_init 
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ei 

// Handles all of the mid-level window 
ff initialization functions 

ry 


WIND sxwind_init(WIND «W_PTW, 
int ulr, 
Int ule, 
Le Tae 
ift ire, 
unsigned char attr, 
int border, 
char «title ) 


// Allocate memory and return pointer to structure 
W PTW = setWind(W_PTW,ulr,ulc,Irr,Irc); 

// Set Window Attr - Fore,Back,Intensity,Blink 
setAttr(W_PTW, attr); 

// Set Window Border 

setBord(W_PTW, border) ; 

J? S60 The BOTton Title 

setTitle(W_PTW, title) ; 

// Display window 

strtWind(W_PTW) ; 

// return the pointer 


return W_PIW; 
} 


Seeger ee deere ee terre reeieterrerrergsce sg) 
// 

// wind_kb_edit 

// 

// Edit an alphanumeric field in a 

// window 

// 


int wind_kb_edit(WIND «Ww, 
char *response, 
int row, 
int column, 
int dlen, 
int opt, 
UCHAR attr) 
{ 
int ret_val; 


ret_val= kb_edit(response, 
row + W->ul_row, 
Colum + W->ul_¢ol, 
dlen, 
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18-1 Continued. 


opt, 
attr); 
return(ret_val); 
} 


Magee eebe seers ieeeset seer sere sae: 
// 


// wind_repeat_char 


// 
// Repeats a character on a row in a 
// window 
// 
void wind_repeat_char(WIND xW, 
int row, 
int col, 
int len, 
char ch, 


UCHAR attr) 


scrn_repeat_char(W->ul_row + row, 
W->ul_col + col, 
len, 
wee 
ETT P I: 


PUPPPPLPL ELEAF 
re 


// wind _char 

ii 

// Writes a character to a window 
// location 

Fa 


void wind _char(WIND «*W, int row, int col, char ch, UCHAR attr) 
{ 
scrn_char(W->ul_row + row, 
W->Pul col + col, 


Ch, 
Sttr): 


18-1 Ends. 
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DOS printer 
management functions 





In DOS, you manage the printer via BIOS functions. The DOS printer 
functions involve sending bytes to the printer. These foundation opera- 
tions have been used to create some higher level printer management 
functions. There are two dummy printer functions that facilitate compati- 
bility with the OS/2 library. 

This chapter presents the source code to the DOS printer manage- 
ment object module that has been placed in the DOSTEXT.LIB library file. 
Table 19-1 repeats all the printer function prototypes. 


Table 19-1 Printer 
function prototypes. 


int  print_open(int num); 

int print_close(int num); 

int  print_newline(int num); 

int  print_cr(int num); 

int print_string(int num, char +); 
int print_char(int, char); 

int print_scrn(int); 

int  print_scrnFF{(int); 

int print_status(int); 

void print_set_column(int, int); 


Figure 19-1 presents the DOS-based source code listing to 
PRINTER.C. This function uses DOS’s printer functions that reflect object 
modules contained in the DOSTEXT.LIB library file, FIG. 19-1. The source 
code listing to PRINTER.C. 


19-1 The source code listing to PRINTER.C. 
SER PORECRCR SECC ESAT ECE CEA PEER E TES: 
yt 


fy SPINCEFr .o 
i} 

// DOS Version 
// 


#Hinclude <dos.h> 

fHinclude <stdlib.h> 
fHinclude <stdio.h> 
fHinclude <string.h> 
fHinclude <memory.h> 
dFinclude <malloc.h> 


f#include “tproto.h” 
PCCP SECC Cee reece ee ec ee eeeeneeecee: 
// 


fi print string 

ff 

// Send a string ob bytes to the 
// printer 

// 


int print_string(int num, char xsbuffer) 
int ret_val, counter, len; 


len= strlen(buffer); 
for(counter= 0; counter < len; counter++) { 
print_char(num, «xbuffer+t) ; 
} 
return O; 
} 


BEL EP ETE A REPT EEE ET AERP PETE EES EELS TT EEE 
fe 


}? OF ING_char 

ai 

// Send a character to the printer 
// 


int print_char(int num, char ch) 
{ 
union REGS ir, or: 

ir.X.dx= num; 

ir.h.ah= 0x00; 

ir. ft,al= ch: 


int86(0x17, &ir, &or); 
return(mk_token(or.h.ah, 0)); 
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RECT CREST CC Ce Cee terse eee neers: 
// 

// print_newline 

ff 

// Send a newline character to the 

// printer 

if 


int print_newline(int num) 
return((int)print_char(num, ‘\n’)); 


PELEPL PAIL IPP ETI AP EPL IAS EP fa hii dd 
if 

Jf printucr 

if 

// Send a carriage return to the 

// printer 

// 


int print_cr(int num) 
return((int)print_char(num, aCR)); 


PPESEEL ELISA APT EEE LISLE PL ILIA TI LET aS 
// 


// print_open 

if 

// Noid function required for OS/2 
// migration 

// 


int print_open(int num) 
num= 0; 
return num; 


eeegeeeceeeereeeeeeegeceeseeeeecereaees 
fi 

// print_close 

// 

// Void function required for OS/2 

// migration 

// 


int print_close(int num) 

num= 0; 

return num; 
PRETO PPEP TELAT LEAP AT PETE eed edd dd dl 
ff 


// print _set_column 
pe 
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// Sets the printer head to a specified 
// column location. This function will 
// prove useful is creating formatted 
// printer output. 

if 


void print_set_column(int num, int column) 
iad Cir 

print_char(num, aCR); 

for(ctr= 0: ctr < columiy ctres) | 


printlenar(num, * *)% 


19-1 Ends. 
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Epilogue 





I believe OS/2 to be a very exciting operating system with an extraordinary 
amount of potential. This potential, in part, is based on OS/2’s ability to 
run DOS, Windows, OS/2 Full Screen and OS/2 Presentation Manager 
programs. 

OS/2’s multitasking and multithreading capabilities are powerful 
features of the operating system. When I first heard about the possibility 
of true multitasking capabilities on the PC, I cynically reasoned that no 
real person would ever need to use them. Boy, was I wrong. 

My reasons for selecting to do an OS/2 Full Screen title were simple 
enough. There are still far more programs and machines running under 
DOS than under Windows or OS/2. Although industry leaders feel that 
protected mode multitasking graphically based operating systems are the 
wave of the future, there are still millions of users still married to the DOS 
text interface. I understand why. 

I’ve yet to find a graphical interface based word processor or text 
editor that is easier for my middle-aged eyes than a character mode one. 
Even though I’ve got both Windows and OS/2 Presentation Manager 
based word processors and text editors in my program library, I still use 
the character mode version of Brief (DOS session or OS/2 Full Screen 
session ) and Word Perfect (in a DOS session launched by OS/2) all the 
time. 

What I’m saying is that moving your DOS applications to the 32-bit 
flat memory model world of Full Screen OS/2 makes great sense. You'll 


have tons of memory available for data, and your users won’t have to move 
to a new generation graphical interface arena until they're ready. 

It is my hope that this book has eased your path for migrating your 
DOS character mode program to OS/2. Please know that I’m always inter- 
ested in reading your comments and seeing any library routines you've 
added to those presented in the book. Feel free to write me via the pub- 
lisher and I will answer as time permits. 


Namaste’, 
Len 
Idorfman@delphi.com 
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STACKER®: 
An Illustrated Tutorial 
—2nd Edition—Dan Gookin 

Turn your single hard disk into 
two with this professional guide. Up- 
dated through Stacker 3.0, it con- 
tains information not found in the 
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